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PREFACE 

The  authority  for  conducting  this  investigation  is  the 
Department  of  Transportation,  Contract  No.  5-3-0190,  Federal  Highway 
Administration,  Office  of  Research,  executed  with  the  University  of 
Arizona,  Engineering  Experiment  Station,  College  of  Engineering, 
Tucson,  Arizona  85721. 

The  principal  investigator  is  Haaren  A.  Miklofsky,  Professor  of 
Civil  Engineering  and  Engineering  Mechanics,  the  University  of  Arizona. 
William  B.  Mancini,  a  graduate  student  in  Civil  Engineering,  joined 
the  principal  investigator  for  the  summer  months  of  1976  in  the  pre- 
paration of  a  Master's  Report  as  part  of  this  research. 

The  CDC  computer  research  was  performed  at  the  computer  center 
of  the  University  of  Arizona.   The  IBM  360/370  conversion  was  performed 
at  the  computer  facility  of  the  Tucson  Gas  and  Electric  Company, 
Tucson,  Arizona.  The  IBM  Calcomp  Plotter  of  the  Phelps  Dodge  Corpora- 
tion at  Morenci,  Arizona,  was  used  to  check  the  plotting  subroutine. 

This  report  was  prepared  by  Haaren  A.  Miklofsky  and  incorporates 
part  of  the  Master's  Report  by  William  B.  Mancini. 
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FIGURE   51-i  -  PRINTER  PLOT  OF  .625  HZ  SINE  CURVE  - 
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FIGURE   51- j  -  PRINTER  PLOT  OF  .625  HZ  SINE  CURVE  - 
FINAL  DISPLACEMENT  AFTER  FILTERING. 


130 


FIGURE   52    -  PHASE2  RESULTS  FOR  .625  HZ  SINE  CURVE  - 
N4WAY  =  7. 
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FIGURE   53   -  PHASE2  RESULTS  FOR  .625  HZ  SINE  CURVE  - 
N4WAY  =  8. 
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FIGURE   54   -  PHASE2  RESULTS  FOR  .625  HZ  SINE  CURVE  - 
N4WAY  =  10. 
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FIGURE   55   -  PHASE2  RESULTS  FOR  SYMMETRICAL  SAWTOOTH 
ACCELERATION  -  CAL.  TECH.  VERSION. 
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FIGURE  56-a  -  PRINTER  PLOT  OF  SYMMETRICAL  SAWTOOTH 
ACCELERATION  -  ACCELERATION  PRIOR  TO 
HOLOWAY  FILTERING. 
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FIGURE   56-b  -  PRINTER  PLOT  OF  SYMMETRICAL  SAWTOOTH 
ACCELERATION  -  ACCELERATION  AFTER 
HOLOWAY  FILTERING. 
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FIGURE   56-c  -  PRINTER  PLOT  OF  SYMMETRICAL  SAWTOOTH 
ACCELERATION  -  ORMSBY  FILTER  OF 
ACCELERATION 
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FIGURE   56-d  -  PRINTER  PLOT  OF  SYMMETRICAL  SAWTOOTH 
ACCELERATION  -  ACCELERATION  AFTER 
ORMSBY  FILTERING. 
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FIGURE   56-e  -  PRINTER  PLOT  OF  SYMMETRICAL  SAWTOOTH 
ACCELERATION  -  INTEGRATED  VELOCITY 

FIGURE   56-f  -  PRINTER  PLOT  OF  SYMMETRICAL  SAWTOOTH 
ACCELERATION  -  FINAL  VELOCITY  AFTER 
FILTERING. 
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FIGURE  56-g 


PRINTER  PLOT  OF  SYMMETRICAL  SAWTOOTH 
ACCELERATION  -  INTEGRATED  DISPLACEMENT. 


142 


FIGURE   56-h  -  PRINTER  PLOT  OF  SYMMETRICAL  SAWTOOTH 

ACCELERATION  -  FINAL  DISPLACEMENT  AFTER 
HIGH-PASS  FILTERING  AT  1/16  HZ 
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DIGITIZATION  AND  INTEGRATION  OF 
STRONG  MOTION  ACCELEROGRAMS 

I.  Introduction 

1 .  Subject 

This  report  is  presented  as  a  procedure  for 
digitizing  and  processing  strong  motion  earthquake  accelero- 
grams.  It  describes  the  process  by  which  an  earthquake  record 
is  used  to  obtain  actual  ground  acceleration,  velocity,  and 
displacement  information.   The  procedure  is  primarily  for  use 
with  time-acceleration  data  originally  recorded  on  film  by  a 
mechanical  or  optical  system. 

2.  Background 

Figure  1  shows  the  first  28  seconds  of  record  at  Pacoima 
Dam,  San  Fernando,  California  during  the  earthquake  of  February 
9,  1971.   A  full-size  contact  negative  of  the  record  was  furnished 
to  the  authors  by  Dr .  A.  G.  Brady,  of  the  U.S.  Geological  Survey. 
The  accelerogram  shown  in  Figure  1  was  recorded  by  an  AR-240 
Strong  Motion  Accelerograph  (Figure  2a) .   The  AR-240  accelerograph 
was  formerly  manufactured  by  United  ElectroDynamics  Inc.,  and 
Teledyne  Inc.,  from  1963  to  approximately  1970.   Its  salient 
features  are: 

a.  Continuous  strong  motion  acceleration  record 
from  about  0.1  second  after  the  initial  actuating 
pendulum  contact  to  7  seconds  after  the  last 
pendulum  contact . 

b.  Storage  capacity  of  150-foot  roll  of  photographic 
paper  record  for  three  orthogonal  components  of 
acceleration. 

c.  A  total  of  eight  recorded  traces,  comprising  three 
fixed  reference  traces,  three  variable  accelerometer 
traces,  and  two  timing  traces. 
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FIGURE   2-a.      PHOTOGRAPH  OF  AR-240   STRONG  MOTION  ACCELEROGRAPH, 

COURTESY  OF  TERRA  TECHNOLOGY  CORP.,    SEATTLE,    WASHINGTON 
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FIGURE  2-b.   SCHEMATIC  DIAGRAM  OF  TORSION  SEISMOMETER 


d.  Light-weight  (60  pounds  total,  not  including 
the  external  batteries)  and  compact  size 

(16  x  16  x  14  inches) . 

e.  Integral  calibration  of  seismometer  period  and 
damping. 

f.  Constant  velocity  paper  speed  of  2  cm/sec. 

g.  Adjustable  sensitivity  of  7.5  g  and  range  of 
0.01  to  1.0  g. 

The  accelerograph  contains  three  Lehner-Grif f ith 
seismometers  which  are  similar  to  the  well-known  Wood-Anderson 
torsion  seismometers,  using  a  small  mirror,  mounted  directly 
on  the  taut  suspension  system  and  equipped  with  electro-magnetic 
damping. (1)  (2)   Figure  2b  schematically  illustrates  the  operation 
of  the  torsion  seismometer.   A  seismic  mass  consisting  of  a 
rectangular  many-turned  coil  of  wire  is  excentrically  attached  to 
a  taut  wire.   Electro-magnetic  damping  is  accomplished  by  surround- 
ing the  free  portion  of  the  wire  by  a  permanent  magnet.   By 
changing  the  external  resistance  in  the  coil  circuit  the  damping 
can  be  set  to  any  desired  value.   An  additional  advantage  of  the 

coil  system  is  that  an  external  electrical  signal  can  be  introduced 

(3) 
easily  into  the  transducer  element  for  calibration  purposes. 

Mechanical-optical  AR-240  recording  is  accomplished  photographical- 
ly by  means  of  reflected  light  from  a  mirror  attached  to  the  mass. 
The  AR-240  records  on  photographic  paper  12  inches  wide,  and  has 
a  natural  period  between  0.055  and  0.065  seconds.   Damping  is 
approximately  60%  of  critical.   Timing  marks  are  two  per  second 
at  +  1%. 

When  strong  earth  motion  occurs  a  mass  attached  to  a 
vertical  pendulum  moves  in  a  horizontal  direction  and  closes  the 
platinum  pendulum  contacts  which  in  turn  releases  telephone  type 


*     Numbers  in  (  )  refer  to  references  listed  in  Appendix  G. 


relays  controlling  the  drive  motor,  timing  and  control  circuit, 
and  the  light  source.   This  type  of  relay  control  coupled  with 
a  transistorized  light  source  circuit  provides  a  start  delay 
timing  of  only  about  0.1  seconds  from  initial  contact  to  full 
operation.   The  minimum  acceleration  required  to  close  the 
pendulum  contacts  can  be  less  than  0.01  g. 

Processing  of  accelerogram  records  takes  two  general 
steps:  (1)  converting  the  time-acceleration  trace  to  digital 
information  (digitization),  and  (2)  integration  and  correcting. 
The  first  step  is  a  physical  task  and  must  be  performed  with 
utmost  care.   The  procedures  used  in  the  second  step  are  more 
or  less  "automatic"  i.e.,  the  data  is  processed  through  a  digital 
computer  and  cannot  be  directly  influenced  by  the  user  unless  he 
changes  the  computer  program.   One  cannot  emphasize  the  meticulous 
accuracy  by  which  the  digitization  must  be  done.   To  put  a  scale 
on  the  accuracy  required,  let  us  consider  Figure  3  which  shows  a 
published  plot  of  the  final  acceleration,  velocity,  and  displace- 
ment of  the  Pacoima  Dam  N76°W  component  of  record  by  Cal.  Tech. ^^ 
The  original  accelerogram  shows  a  vertical  scale  of  7.6  centimeters 
per  g  or  7.6  centimeters  per  981  centimeters /sec  .   If  a  vertical 
displacement  error  in  digitizing  points  of  one  cm/sec^  or 
approximately  0.003  inches  occurred  during  a  30-second  length  of 
record  (Figure  4) ,  the  end  velocity  would  change  by  30  cm/sec  and 
the  end  displacement  would  change  by  450  centimeters.   Since  the 
maximum  displacement  is  only  12  centimeters,  it  can  be  seen  that 
small  errors  in  digitizing  acceleration  records  can  completely 
distort  the  displacement  record  and  make  it  virtually  impossible 
to  correct  during  the  integration  procedure. 


*  Several  publications  list  this  as  the  S74°W  component.  However, 
the  new  component  designation  was  printed  on  the  record  received 
by  the  authors  from  the  U.S.  Geological  Survey. 
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AND  DISPLACEMENT 


Computer  Program 


Several  computer  programs  described  in  the  literature 
for  the  integration  of  earthquake  records  were  studied, 
but  eventually  it  was  decided  to  use  the  Cal.  Tech.   program  as 
a  basis  for  integration  so  that  the  reader  would  have  an  exist- 
ing  list  of  digitized  data  of  past  earthquakes  and  Cal.  Tech's  so 

■k 

The  computer  program  developed  by  Trifunac  and  Vijayaraghavan, 
California  Institute  of  Technology,  as  given  in  reference  10,  is 
referred  to  as  the  Cal.  Tech.  program  in  this  report. 


called  "standardized  Integrated  plots"  with  which  to  compare 
results  for  future  research.    '     The  procedure  outlined  in 
this  report  follow  those  used  by  the  California  Institute  of 
Technology,  as  described  in  reference  (10)  with  primary  differ- 
ences existing  mainly  in  the  programming  techniques.   The  program 
listed  in  reference  (10)  written  for  the  IBM  360/370  machine, 
utilizes  assembly  language  subroutines  for  reading,  writing, 
plotting,  and  storage  of  information  in  a  production  system  of 
records.   Also  the  program  as  listed  would  have  exceeded  the 
storage  capacity  of  the  CDC  6400  computer  at  the  University  of 
Arizona.   Therefore,  the  program  was  completely  rewritten  into 
a  more  compact  form  for  efficient  turn-around  time  using  only 
Fortran  IV  statements  for  both  the  IBM  360/370  O.S.  computer  and 
the  CDC  6400  computer. 

* 

A  single  program  DAISMA  is  used  for  processing  of 

digitized  input  data  either  in  card  or  magnetic  tape  form,  and 
also  for  the  integration  of  the  processed  data.  The  procedure 
consists  of  three  steps: 

1.  Digitized  data  on  either  magnetic  tape  or  cards 
are  first  plotted  to  the  identical  scale  of  the 
accelerogram  trace  using  a  subroutine  called 
PLOTTR.  Magnetic  tape  data  is  punched  on  cards. 
The  plot  of  the  data  is  overlain  on  the  original 
record  over  a  light  table  and  the  data  is  corrected 
either  by  hand  on  the  keypunch  machine,  or  by 
redigitizing. 

2.  The  corrected  data  is  next  baseline  corrected 
(subtraction  of  fixed  trace  from  acceleration 
record)  by  resubmitting  the  card  data  to  the 
program  with  control  cards  to  go  to  subroutine 
PHASE1,  after  which  baseline  corrected  data  is 
punched  on  cards  and  plotted. 


*  DAISMA  -  Digitization  and  Integration  of  Strong  Motion  Accelerograms. 
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3.   After  the  examination  of  the  baseline  corrected 
plot,  the  new  cards  are  again  resubmitted  to  the 
program  with  control  cards  to  go  to  subroutine 
PHASE2,  where  the  data  is  integrated  to  give  final 
values  of  acceleration,  velocity,  and  displacement 
and  a  plot  of  this  information. 

Outline  of  Method 

The  digitizing  process  (discussed  in  detail  in  the 
next  section)  consists  of  converting  an  analog  trace  (i.e., 
the  accelerogram)  to  a  digital  record  of  plane  coordinates.   The 
sequence  of  the  coordinate  data  points  represent  the  accelero- 
gram; i.e.,  if  the  individual  coordinate  points  were  plotted  on 
a  two-dimensional  graph  and  each  successive  point  connected  by 
a  straight  line,  a  duplicate  of  the  accelerogram  would  result. 
Naturally,  there  is  a  slight  deviation  from  the  original  acceler- 
ogram, but  these  deviations  become  negligible  as  the  number  of 
digitized  points  increases. 

There  are  several  errors  inherent  in  converting  an 
analog  trace  to  digital  information.   These  are  classified  as 

(1)  systematic  errors  i.e.,  errors  which  continue  to  occur  and 
have  the  same  magnitude  under  the  same  recording  conditions  and 

(2)  accidental  errors,  i.e.,  errors  which  occur  infrequently  and 
may  greatly  deviate  from  the  true  value.   Errors  and  their 
elimination  are  discussed  in  detail. 

In  order  to  obtain  velocity  and  displacement  from  a 
function  representing  acceleration,  integration  of  the  function 
is  necessary.   The  integration  process  is  carried  out  by  means 
of  the  "Trapezoidal  Rule".   This  is  an  approximate  means  of 
integrating  by  numerical  methods.   (The  method  of  integration  is 
discussed  in  Section  IV.) 


A  filtering  technique  is  used  in  the  processing  of 
data  to  remove  extraneous  high  and  low  frequency  components  of 
data.   Thus  only  frequencies  within  a  certain  "band"  are  allowed 
to  pass  unaltered.   This  process  is  called  "high  (or  low)  pass" 
filtering  and  is  discussed  in  Section  IV. 

To  locate  a  "baseline",  i.e.,  a  line  which  represents 
zero  acceleration,  a  least  squaring  procedure  is  executed.   The 
data  is  then  "fitted"  to  this  baseline  so  that  all  quantities 
are  given  as  being  positive  or  negative  relative  to  the  baseline. 
Leastsquaring  is  necessary  because  the  accelerogram  trace  does 
not  begin  until  after  the  earthquake  has  started.   (The  earth- 
quake itself  triggers  the  accelerometer) .   Thus  zero  acceleration 
at  the  beginning  of  the  trace  is  not  given  and  must  be  determined 
by  some  other  means.   The  method  of  leastsquaring  is  presented 
in  Appendix  A. 

To  support  and  more  clearly  demonstrate  the  validity  of 
the  general  procedure  outlined  above,  experiments  are  presented 
in  Section  VII.  In  these  experiments  acceleration  traces  are 
prepared.   The  traces  are  then  processed  in  the  same  manner  in 
which  an  earthquake  record  (accelerogram)  would  be  processed.   In 
the  experiments,  however,  actual  displacements  are  recorded  on 
film  so  that  they  can  be  compared  to  displacements  computed 
from  the  accelerograms. 

To  obtain  similarity  between  integrated  and  measured  dis- 
placements the  Cal.  Tech.  program  was  slightly  modified.   The 
reasons  for  the  modification  are  given  in  Sections  VI  and  VII. 


Reconstruction  of  Contact  Negative 

A  35%  reduced  print  of  a  part  of  the  contact  negative  is 

shown  in  Figure  5.   Some  of  the  lines  of  the  trace  were  so  faint 

that  they  were  unobserved  when  the  first  digitizing  work  was 
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FIGURE  5.   COPY  OF  11  1/2  SECONDS  OF  PACOIMA  DAM  RECORD,  AS  ORIGINALLY 
RECORDED.   PRINTED  AT  65%  OF  FULL  SIZE 
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started.   Guessing  at  the  location  of  these  lines  led  to 
serious  errors.   Upon  examination  of  the  negative  over  a 
light  table,  the  extremely  faint  lines  were  found  with  a 
magnifying  glass.   Thereupon  they  were  intensified  by  cutting 
the  emulsion  away  using  a  Ramsey  Film  Line  Cutter,  while  still 
examing  the  area  under  the  magnifier.   At  the  same  time,  it 
was  decided  to  opaque  one  negative  copy  of  the  record  to  separate 
the  interfering  curves  and  to  blacken  the  background  for 
studies  by  an  optical  digitizing  system.    Figure  6  shows  the 
reconstructed  record  which  was  used  in  the  digitizing  process. 
During  optical  readout  the  middle  curve  was  completely  opaqued, 
although  it  could  have  been  included  and  separated  from  top  and 
bottom  curves  by  reprinting  from  two  reconstructed  copies. 

Digitizing  Machines 

Three  digitizing  machines  were  used. 

1.  The  Electrak  Digitizer 

2.  The  Benson-Lehner  Digitizer 

3.  The  Perkin-Elmer  Microdensitometer 

The  Electrak  and  Benson-Lehner  digitizers  are  fully  described 
in  this  report  and  work  was  accomplished  to  completion  on  these 
machines.   Time  allowed  only  introductory  work  on  the  Perkin- 
Elmer   Microdensitometerj  however,  photographic  problems  (to  be 
described)  may  limit  the  application  of  this  machine  for  earth- 
quake record  digitization. 
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FIGURE  6.   RECONSTRUCTED  RECORD  OF  FIGURE  5  AFTER  THE  CURVES  WERE 
INTENSIFIED  AND  THE  BACKGROUND  OPAQUED 
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7.  Hand  Digitizing  -  Microfische  Film  Reader 

A  novel  method  of  hand  digitizing  a  record  with  the 
aid  of  a  microfische  film  reader  is  described  in  Section  II, 
Although  the  method  is  time  consuming,  it  is  practical  when 
commercial  digitizing  machines  are  unavailable,  and  gives 
excellent  results. 
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II.   DIGITIZATION 


1 .   Electrak  Digitizing  Machine 


** 


Figure  7  illustrates  the  TRAK  100   digitizer  in  use 
at  the  Watershed  Research  Station,  Tucson,  Arizona.   The  36"  x 
48"  active  work  surface  is  a  white  sheet  of  plastic  above  a 
gridwork  of  wires  spaced  about  1/10"  apart.   A  current  is  pulsed 
through  a  single  wire  at  the  edge  of  the  sheet  of  magnetic 


FIGURE  7 .   ACCELEROGRAM  MOUNTED  ON  TABLE  OF  ELECTRAK  DIGITIZER 


*  Manufactured  by  Electrak  Corporation,  16634  Oakmont  Avenue, 

Gaithersburg,  Maryland  20760. 
**  The  terms  TRAK  100  and  Electrak  are  used  synonymously  throughout 

this  report. 
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material  causing  a  planar  strain  wave  to  propagate  through  the 
sheet.   On  the  surface  of  the  table  is  a  cursor  which  has  a 
crosshair  etched  on  the  reading  glass.   As  the  strain  wave 
passes  beneath  the  cursor,  an  electric  signal  is  produced  in  a 
small  coil  in  the  cursor.   A  digital  coordinate  is  produced  by 
timing  the  delay  between  the  START  (current)  pulse  and  the  STOP 
pulse.   A  second  current  carrying  wire  along  the  adjacent  edge 
of  the  sheet  provides  the  determination  of  the  other  coordinate. 

Figure  8  shows  the  gridwork  of  wires  located  under  the 
plastic  sheet  used  in  making  a  two-dimensional  determination  of 
the  position  of  the  cursor.   The  "Send"  wire  is  just  a  one-turn 
coil  through  which  a  current  is  pulsed.   Two  such  wires  are 
used  —  one  for  the  X  and  one  for  the  Y  determinations.   They 
are  pulsed  at  different  times  to  avoid  ambiguity.   The  strain 
wave  propagates  down  all  the  wires  in  one  direction  simultaneous- 
ly.  The  receiving  coil  is  in  the  crosshair  of  the  cursor  above 
the  table  surface.   The  insertion  loss  of  the  entire  measuring 
process  is  low  enough  to  permit  accurate  determinations  even 
when  the  cursor  is  3/16"  above  the  table  surface.   Since  position 
sensing  is  done  along  the  wires  instead  of  across  the  wires,  any 
location  errors  of  the  wires  relate  to  the  accuracy  as  the  cosine 
of  the  error  angle.   However,  this  is  a  very  small  number.   The 
resolution  of  the  table  at  the  Watershed  Research  Station  is 
0.005"  with  an  accuracy  of  +  0.005". 

Figure  9-a  shows  an  enlargement  of  a  section  of  the 
Pacoima  Dam  record.   To  increase  the  accuracy  of  positioning  the 
cursor  in  the  middle  of  the  acceleration  curve,  a  Bausch  &  Lomb 
measuring  magnifier  was  attached  over  the  cursor  glass  as  shown 
in  Figure  9-b,  which  enlarged  the  accelerogram  curve  approximately 
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FIGURE  8.   MESH  OF  MAGWIRES  UNDER  E1ECTRAK  PLASTIC  TABLE  TOP  AND 
SCHEMATIC  OF  POSITION  SENSING 
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FIGURE  9-a.   MAGNIFIED  PORTION  OF  ACCELEROGRAM 
FIGURE  9-b.   ELEVATION  VIEW  OF  CURSOR 
FIGURE  9-c.   TOP  VIEW  OF  CURSOR 
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to  the  width  shown  in  Figure  9-a.   The  cursor  (Fig.  9-c) 
has  four  buttons  each  of  which  may  be  pushed  to  record  the 
coordinates  of  the  point  in  question  (located  by  the  cross- 
hair) .   These  buttons  are  identification  buttons  and  will 
print  out  a  four-character  number  along  with  the  coordinate 
data  and  can  be  used  to  distinquish  the  digitized  components 
of  the  accelerogram  from  each  other.   It  was  found  convenient, 
however,  to  use  the  #1  button  exclusively  and  change  the 
curve  identification  on  the  console  as  will  shortly  be 
explained. 

Figure  10  shows  the  small  floating  console  and 
illustrates  the  position  of  the  various  controls.   When  the 
console  is  in  operation  mode,  the  display  shows  the  first  16 
characters  of  the  36  character  record  recorded  on  the  tape. 
The  first  four  characters,  CCCC,  represent  a  four-digit 
counter,  whose  starting  number  is  dialed  on  the  four  decade 
thumb  wheels  shown.      As  each  point  is  read  into  the  tape 
this  number  reduces  by  36  characters.   When  it  goes  to  zero,  it 
reaches  the  end  of  a  block  of  data  on  the  tape. 

The  next  six  characters  comprise  the  X  coordinate  from 
an  established  zero  reference  —  with  the  first  character 
representing  the  +  sign.   Next  follows  six  more  characters 
representing  the  Y  coordinate  preceeded  by  a  sign. 

The  next  16  characters  of  the  record  is  alpha-numeric 
information  placed  in  memory  via  the  electric  typewriter.   When 
this  keyboard  entry  is  first  made  into  memory,  it  will  be  dis- 
played on  the  console  when  the  FA  (Fixed  Address)  button  is 
depressed  (lit  up) .   The  alpha-numeric  information  used  by  the 
authors  was  the  title  of  the  record. 

The  last  four  characters  contain  the  cursor  I.D. 
(identification)  to  be  assigned  to  the  operator  button  being 
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Sample  Tape  Record 
5040+21 460+1 2020PAC0IMA  DAM  N76W1111 

FIGURE  10.   ELECTRAK  CONSOLE 
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used  and  is  written  into  the  display  by  pressing  the  buttons 
marked  BI  with  the  CI  button  depressed  (or  lit  up) . 

Figure  11  shows  the  Tape  Drive  Unit.   The  operation 
of  the  TRAK  100  is  as  follows: 

On  Tape  Drive 

A.  Turn  the  machine  on. 

B.  Mount  the  tape  and  follow  the  sequence  of 
threading  shown  on  the  tape  drive  unit. 

C.  Press  B.O.F.  (Beginning  of  File)  button.   The 
tape  will  advance  until  it  reaches  a  silver 
marker  on  the  tape. 

On  Console 

A.  Depress  the  test  button. 

B.  Dial  thumbwheel  digits  which  must  be  a  multiple 
of  36.   The  author  used  5040  because  504  words 
was  the  limiting  buffer- in  arrangement  of  words 
printed  by  the  tape  examine  routine  on  the  CDC 
6400  computer.   Each  word  on  the  CDC  machine  is 
10  characters. 

C.  Depress  the  FA  button  and  type  in  the  identifying 
alpha-numeric  title. 

D.  Depress  the  CI  button  (light  on)  and  press  the  CI 
information  on  the  console  keyboard,  BI.   It  is 
recommended  that  all  four  numbers  be  the  same,  and 
they  must  be  placed  in  the  leftmost  positions  on 
the  display,  if  the  main  cursor  button  is  to  be 
used. 

E.  Mount  the  accelerogram  on  the  table  as  later 
described. 
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FIGURE  11-a.   ELECTRAK  TAPE  DRIVE  UNIT 


FIGURE  11-b.   SEQUENCE  OF  THREADING  TAPE,  ELECTRAK  TAPE  DRIVE 
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F.  Depress  the  test  button  again.   Place  the  cursor 
at  the  position  where  a  new  origin  is  to  be 
established.    Press  the  "0"  button  on  the  console 
after  pressing  the  cursor  button  only  once.   This 
causes  the  displayed  coordinates  to  be  subtracted 
from  all  subsequent  readings,  thus  establishing  a 
new  relative  origin. 

G.  Place  the  cursor  over  each  control  point  (Figure  12) 
and  record  the  X  and  Y  coordinates  for  future  use 
as  a  check  against  point  displacement  of  the  record 
or  plastic  top  during  digitizing,  or  matching  a 
correction  record  after  readout  by  the  computer. 

H.    Depress  the  operation  button  (light  on).   The  machine 
is  now  ready  for  digitizing.   As  each  point  is 
recorded  by  pressing  the  cursor  button,  a  short 
"beep"  is  heard  by  the  operator  as  the  seven  track 
tape  is  recorded  at  the  rate  of  556  bits/inch. 
When  the  end  of  a  block  of  data  is  recorded  (counter 
goes  to  zero)  a  longer  beep  is  heard,  signifying  an 
inter-record  gap  of  approximately  3/4"  on  the  tape. 

I.    When  one  complete  curve  is  digitized,  press  the 

E.O.F.  button  on  the  tape  drive  only  once.   The  tape 
will  record  a  3/4"  space  for  inter-record  gap  fol- 
lowed by  an  end  of  file  mark,  followed  by  another  3/4" 
gap  before  the  beginning  of  information  for  a  new 
curve . 


*   Default  allows  the  origin  to  remain  at  the  lower  left  corner  of 

the  table. 
**  First  6  bits  is  used  to  record  the  character  information,  while 

the  seventh  bit  is  used  to  check  for  parity  errors.   Even  parity 

is  recorded  by. the  Electrak  when  seven-track  tape  is  used.   See 

page  26  for  information  on  nine-track  tape. 
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J.    When  all  the  record  data  has  been  entered  on  the 
tape,  press  the  E.O.F.  button  four  times  in 
succession  to  signify  end  of  information.   Once 
this  has  been  done,  no  additional  information  may 
be  recorded  on  that  tape.   WARNING:   If  the  machine 
is  turned  off  prior  to  end  of  information,  it  will 
not  be  possible  to  add  additional  data  on  the  tape. 
There  is  no  provision  in  the  TRAK  100  for  skipping 
tape  files. 

Mounting  the  Accelerogram  on  the  Electrak  Machine 

Figure  12  shows  a  typical  earthquake  accelerogram  recorded 
on  film.  It  consists  of  three  components  of  an  earthquake  record 
with  a  fixed  trace  for  each  record.  To  this  accelerogram  a  series 
of  eight  control  points  represented  by  triangles  has  been  added. 

The  accelerogram  is  mounted  on  the  digitizing  table  so 
that  one  of  the  fixed  traces  is  parallel  to  the  lower  table  frame. 
With  the  test  button  depressed  on  the  console  the  cursor  is  used 
for  final  adjustment  of  the  accelerogram  position  on  the  table 
by  reading  the  Y  position  on  the  console  of  several  points  along 
the  fixed  trace.   As  long  as  the  test  button  is  depressed  no 
information  will  be  recorded  on  the  tape,  but  the  console  will 
still  display  coordinate  data  as  per  location  of  the  crosshair 
on  the  cursor.   When  most  of  the  fixed  trace  points  have  approx- 
imately the  same  Y  coordinate,  the  accelerogram  is  firmly  attached 
to  the  table  top  with  masking  tape  along  its  top  and  bottom  edges. 

The  coordinate  location  of  all  control  points  are  recorded 
for  future  reference.   Now  one  is  ready  to  record  digitized  data 
by  depressing  the  operate  button  on  the  console. 
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3.   Electrak  Digitizing 

Figure  13  shows  a  sample  of  recorded  information  of 
coordinate  data  for  the  N76  W  component.   This  data  was  ob- 
tained from  a  seven-track  tape  using  a  special  examine 
subroutine  called  TRAK  010  whose  purpose  was  to  check  valid 
character  input  to  the  tape.   Two  major  problems  were  en- 
countered in  translating  the  information  from  the  seven- 
track  tape  used  by  the  Watershed  Research  Station  Electrak 
machine  to  the  CDC  computer.   First,  the  +  and  -  characters 
identifiable  by  the  TRAK  100  were  not  the  same  for  the  CDC 
computer  since  the  recorded  556  bits/inch  data  was  in  a 
modified  external  BCD  code  on  the  tape.   Subroutine  TRAK  010 
forms  the  conversion.   The  second  problem  encountered  was 
that  TRAK  100  would  drop  characters  occasionally  resulting 
in  a  garbled  field  of  data.   The  TRAK  010  examines  each 
character  in  sequence  on  the  tape  and  when  the  sequence 
within  a  36-character  stream  is  correct,  it  records  the 
coordinates  of  the  data  point  represented  by  the  stream. 
Details  concerning  TRAK  010  are  given  in  Appendix  E. 

For  nine-track  tapes  operational  on  the  IBM  370 
computer,  the  Electrak  records  data  in  EBCDIC  form  with 
proper  code  for  the  +  and  -  characters  at  the  rate  of  800 
bits/inch.   An  alternate  TRAK  010  subroutine  is  included  in 
the  IBM  computer  listing  in  Appendix  D,  however,  in  the  later 
version  no  attempt  was  made  to  eliminate  points  containing 
garbled  coordinate  information,  since  they  could  provide  a 
clue  to  improper  digitizing.   It  is  advisable  to  screen  the 
entire  list  for  alphabetic  data.   Where  this  occurs  occasionally, 
the  card  punched  data  should  be  corrected.   It  is  proper  to 
duplicate  adjacent  data  to  replace  erroneous  information. 
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**   PACOIMA  N76W   ELECTRAK   ** 


TUE  -  ACCELERATION  DATA  READ  FROM  MAG  TAPE 


5040+19350+09030 

5004+19370+09065 

4968+19375+09085 

4932+19385+09110 

4896+19400-09135 

4860+194 10+09i70 

4824+19420+09115 

4788+19420+09080 

4752+19425+09060 

4716+19430+09030 

4680+19440+09070 

4644+19450+09105 

4608+19455+09165 

4572+19455+09220 

4536+19460+09285 

4500+19470+09335 

4464+19470+09295 

4428+19480+09260 

4392+19480+09195 

4356+19^80+09160 

4320+19480+09125 

4284+19490+09070 

4248+19500+0911Q 

4212+19510+09025 

4176+19520+09070 

4140+19525+09125 

4104+.1  9530+09175 

4068+19535+09215 

4032+19540+09245 

3996+19545+0928Q 

3960+19550+09215 

3924+19560+09160 

3888+19560+09095 

3852+19560+09050 

3816+19560+08995 

37S0+19560+08970 

3744+19565+08930 

3708+19570+08925 

3672+19575+08975 

3636+19585+09020 

3600+1959O+09C60 

35^4+19590+09110 

35  28+19  595+0914  5 

3492+19605+09170 


34  56+19615+09225 
3420-^19620+09190 
3384-5-19625+09170 
3348+19630+091 5Q 
3312+19645+09125 
3276+19550+0915G 
3240+19655+09180 
3204+19660+09220 
3168+19665+09260 
3132+1967Q+Q9290 


FIGURE  13.   SAMPLE  OF  OUTPUT  DATA  LISTED  BY  SUBROUTINE  IRAK  010 
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All  coordinate  points  which  are  valid  are  then 
punched  onto  cards  with  a  specification  of  4(F10. 3,F10. 3) 
format  as  illustrated  in  Figure  14   In  addition,  the  data  is 
plotted  to  the  same  scale  as  the  original  curve  on  the  acceler- 
ogram by  the  PLOTTR  Subroutine.   Figure  15  shows  the  Electrak 
plot  of  the  digitized  coordinates  for  the  N76°W  component  of 
the  Pacoima  Dam  record. 

An  enlarged  view  of  a  few  seconds  of  the  Electrak 
record  is  shown  in  Figure  16,  indicating  the  location  of 
digitized  points  in  relation  to  an  enlarged  background  view 
of  the  original  record.   This  total  record  contained  2628  points 
per  28.6  seconds  of  record.   Figure  17  shows  the  digitized  points 
recorded  by  Trifunac  (1971)  which  has  2685  points  per  41.7 
seconds  of  record.   Essentially  in  digitizing  one  needs 
to  use  the  following  guidelines: 

A.  Try  to  stay  within  the  centerline  of  the  curve. 
With  a  measuring  magnifier  the  curve  is  enlarged 
to  facilitate  the  location  of  the  cursor  directly 
along  the  middle  path  of  the  curve. 

B.  Care  should  be  exercised  so  that  points  are  located 
at  peaks  and  valleys  at  the  intersection  of  the 
trace  centerlines. 

C.  More  points  need  to  be  taken  along  the  curved  paths 
then  along  the  straight  paths  of  the  accelerogram. 

D.  Points  need  to  be  located  at  all  apparent  changes 
in  tangentlines  to  the  center  path  of  the  curve. 

Figures  18  through  21  show  additional  segments  of  the  digitized 
record  as  further  illustrations  of  the  above  principles. 
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FIGURE  16.   ENLARGED  VIEW  OF  FIRST  1.3  SECONDS  OF  N76°W 
PACOIMA  DAM  RECORD  SHOWING  THE  LOCATION  OF 
DIGITIZED  POINTS  FROM  ELECTRAK  DATA 
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FIGURE  17.   ENLARGED  VIEW  OF  FIRST  1.3  SECONDS  OF  PACOIMA  DAM  RECORD 

SHOWING  THE  LOCATION  OF  DIGITIZED  POINTS  FROM  CAL  TECH  DATA 
(8) 
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FIGURE  18.   ENLARGED  VIEW  OF  3.3  SECONDS  TO  4.8  SECONDS  OF  N76  W  PACOIMA 
DAM  RECORD  SHOWING  THE  LOCATION  OF  DIGITIZED  POINTS  FROM 

CAL  TECH  DATA 
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FIGURE  19.   ENLARGED  VIEW  OF  25.3  SECONDS  TO  26.6  SECONDS  OF  N76  W 

PACOIMA  DAM  RECORD  SHOWING  THE  LOCATION  OF  DIGITIZED  POINTS, 
CAL  TECH  DATA 


FIGURE  20.   ENLARGED  VIEW  OF  FIRST  1.3  SECONDS  OF  S16  E  PACOIMA  DAM 
RECORD  SHOWING  THE  LOCATION  OF  DIGITIZED  POINTS  FROM 

CAL  TECH  DATA 
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FIGURE  21. 


ENLARGED  VIEW  OF  FIRST  1.3  SECONDS  OF  S16°E  PACOIMA  DAM 
RECORD  SHOWING  THE  LOCATION  OF  DIGITIZED  POINTS  FROM 

ELECTRAK  DATA 
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4.   Digitization  Corrections  for  the  Electrak  Machine 

The  plotted  full-scale  digitized  accelerogram  using 
the  PLOTTR  subroutine  is  shown  in  Figure  15.   For  checking  it 
is  overlain  on  the  film  copy  of  the  original  record  and  examined 
over  a  light  table.   It  will  be  seen  that  at  some  points  the 
errors  will  be  easily  discernable  and  are  of  two  types: 
(a)  points  connected  by  a  straight  line  different  from  the 
record  indicating  that  intermediate  digitized  points  were 
lost  by  the  TRAK  100  machine  and;  (b)  errors  in  duplicating 
the  record  by  the  operator.   Both  types  of  errors  need  to  be 
corrected  by  an  additional  run  on  the  digitizing  machine. 
Prior  to  redigitizing,  the  control  points  should  be  re-examined 
to  make  sure  that  the  location  has  not  changed  appreciably. 
In  one  run  the  authors  found  that  fasteners  during  the  servicing 
of  the  machine  had  been  left  out  of  the  table  frame  which  per- 
mitted the  plastic  table  top  to  move  relative  to  the  wires, 
creating  a  slight  translation  and  rotation  of  the  record  rela- 
tive to  a  pre-established  axes.   For  ease  in  locating  matching 
end  points  of  the  correction  plot  with  the  original  plot,  the 
correction  plot  should  be  digitized  starting  at  a  readily 
definable  peak  or  valley  and  ending  at  a  readily  definable 
peak  or  valley  (Figure  22) . 

The  PLOTTR  subroutine  plots  the  record  in  units  of 
inches  for  both  the  X  and  Y  axis.   To  find  the  X  coordinate   in 
the  listing  for  a  particular  location  on  the  record,  one  merely 
scales  the  differences  in  inches  between  the  beginning  of  the 
record  and  the  point  in  question  on  the  plot  in  the  X  direction 
and  then  multiplies  that  value  by  1000  and  adds  the  initial  X 
listed  value.   Remember,  on  the  Electrak  machine  1000  points 
equals  one  inch,  in  both  the  X  and  Y  directions. 
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5.  Benson -Lehner  Reader  and  Decimal  Converter 

A  Ben son -Lehner  Reader  and  Decimal  Converter  at  the 
Watershed  Research  Station  was  also  used  as  a  digitizing 
machine  for  earthquake  records.   Essentially,  this  machine  is 
classified  as  an  "analog-to-digital"  reduction  device  which 
is  used  to  digitize  coordinate  values  of  an  accelerogram 
record.   The  machine  consists  of  three  major  components. 
Figure  23  shows  the  chart  reader  (Model  E) ,  Figure  24  shows  the 
IBM-26  card  punch  machine,  and  Figure  25  shows  the  decimal  con- 
verter (Model  F) .   All  components  are  electronically  intercon- 
nected to  facilitate  the  output  of  the  digitized  record  in 
punched  card  form.   The  reader  electronically  "reads"  X  and  Y 
coordinates  along  the  trace.   The  decimal  converter  then 
interprets  the  data  so  that  it  may  be  output  as  a  number  of 
counts  above  and  to  the  right  of  a  specific  reference  point. 
This  information  is  then  conveyed  to  the  IBM  card  punch  where 
the  X  and  Y  coordinates  are  automatically  punched  on  cards. 

6.  Theory  of  Operation  for  the  Benson-Lehner  Machine 

The  reader,  as  shown  in  Figure  26,  basically  consists  of 
an  inclined  light  table  on  which  the  accelerogram  is  mounted, 
and  two  large  knobs,  (A  and  B)  which  control  the  location  of 
the  X  and  Y  coordinates.   Essentially  these  knobs  connected  to 
potentiometers,  mechanically  control  the  movements  of  a  vertical 
reference  line  "D"  (VRL)  and  an  inclined  calibration  line  "E" 
(CL) .   Knob  A  controls  the  horizontal  position  of  the  VRL  from 
the  established  zero  reference  origin  in  the  X  direction.   Knob 
B  controls  the  horizontal  distance  IJ  within  the  range  of  the 
plastic  overlay.   Once  the  angle  of  the  calibration  line  E  is 
set,  all  vertical  positions  KJ  are  proportional  to  the 
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FIGURE  23.   BENSON-LEHNER  CHART  READER 


FIGURE  24.   IBM-26  CARD  PUNCH  MACHINE  FOR  BENSON-LEHNER  READER 
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Left  Control  Knob 
Right  Control  Knob 
Scan  (Read-Out  Button) 
Vertical  Reference  Line 


(VRL) 


E.  Calibration  Line 

F.  Overlay  Clamp 

G.  Accelerogram  Trace 
H.  Fixed  Trace 


FIGURE  26.   BENSON-LEHNER  CHART  READER  SET-UP  POSITION 
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corresponding  horizontal  distance  IJ.   Thus  two  coordinates, 
X  and  Y,  are  determined  from  horizontal  positions  of  the  VEL 
and  CL.   When  these  two  lines  are  positioned  to  intersect 
directly  over  a  point  "K"  to  be  digitized,  a  read-out  button  "C" 
is  depressed  and  an  electrical  impulse  is  sent  to  the  decimal 
converter.   These  impulses  are  actually  a  measure  of  both 
potentiometer  resistances  which  are  related  to  the  relative 
position  from  an  established  origin  to  the  VRL  and  CL.   These 
input  resistances  are  measured  by  a  ratio  bridge  which  is 
designed  to  sense  the  position  of  the  input  potentiometers. 

The  decimal  converter  receives  these  input  resistances 
and  converts  them  to  "counts",  i.e.,  a  proportional  part  of 
the  total  resistance.   The  circuit  of  the  converter  is 
designed  to  scan  a  series  of  coded  resistors,  compare  them 
with  the  incoming  resistance,  balance  and  hold  or  drop  them 
depending  upon  whether  an  overbalance  is  sensed.   When  the 
input  resistance  is  balanced  with  the  internal  resistance, 
a  null  is  reached.   If  there  is  an  incorrect  balance  or  if 
there  are  input  changes  during  this  balancing  procedure,  an 
error  is  detected  and  further  processing  is  halted. 

When  the  input  resistance  is  balanced  with  the  coded 
decimal  resistances,  an  impulse  is  conveyed  to  the  IBM  card 
punch.   The  format  of  the  readout  sequence  is  controlled  by 
a  patchboard  which  is  adopted  for  computer  input. 

The  patchboard  contains  hubs  (Figure  27)  into  which 
wires  are  plugged.   There  are  a  total  of  sixty  (60)  positions 
available  for  readout  classified  as  Mode  No.  1  or  Mode  No.  2 
output.   These  positions  are  scanned  when  the  record  scan 
button  is  depressed,  thereby  allowing  the  card  punch  format 
to  be  completely  controlled  by  the  patchboard  setup. 
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7.   Patchboard  Wiring  of  Benson-Lehner  Machine 

As  shown  in  Figure  27,  there  are  several  boxed  areas 
on  the  patchboard.   Certain  areas  are  used  for  specialized 
formatting;  however,  for  the  purposes  of  this  report  it  is 
necessary  to  use  only  the  following  areas:  1)  X  ANALOG  area, 
2)  Y  ANALOG  area,  3)  MODE  1  READOUT  area,  4)  MODE  2  READOUT 
area,  5)  DATA  SWITCHES  area,  and  6)  the  "common"  area  denoted 
by  open  circles.   Common  hubs  merely  act  to  duplicate  input 
characters  (e.g.,  numeric  digits,  +,  -,  ",  blank  spaces,  etc.), 

When  a  balance  resistance  is  met,  an  output  impulse  is 
sent  to  scan  the  Mode  1  readout  (when  the  mode  switch  is  in 
the  Mode  1  direction) .   Beginning  from  the  first  hub  of  Mode  1 
readout  area,  the  machine  scans  the  hubs  and  outputs  whatever 
is  "patched"  into  these  hubs.   Each  mode  hub  represents  one 
column  on  a  computer  card.   For  example,  if  hub  1  of  Mode  1 
readout  area  is  patched  to  Data  Switch  3,  whatever  number  data 
switch  3  is  on,  that  number  will  be  sent  to  the  card  punch 
and  will  be  punched  in  column  1.   If  the  second  hub  is  patched 
to  a  special  character,  e.g.,  "+",  a  "+"  sign  will  be  punched 
out  in  the  second  column  of  the  computer  card.   The  patchboard 
on  the  Model  F  converter  has  the  capacity  to  output  up  to  60 
characters  per  scan  (data  point).   Since  the  authors  used  the 
format  2110  to  define  the  X  and  Y  coordinate  values  at  each 
point,  only  20  characters  were  used.   That  is,  the  data  on  the 
computer  card  appeared  like  this:   ssssssxxxxssssss+yyy .   The 
s's  represent  spaces  (blanks),  followed  by  four  digits  repre- 
senting the  X  coordinate,  followed  by  six  more  spaces,  a  sign 
for  the  Y  coordinate,  followed  by  three  digits  representing 
the  Y  coordinate.   The  authors  found  it  convenient  to  utilize 
the  MODE  1  READOUT  for  the  X  coordinate  and  the  MODE  2  READOUT 
for  the  Y  coordinate  as  further  explained. 
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To  wire  the  patchboard  for  the  2110  format,  the 
following  steps  are  used: 

* 

1.  Wire  the  space  hub  (SP)  to  the  common  hub  as 

shown  in  Figure  27,  so  that  the  twelve  vacant 
hubs  are  made  available  for  the  twelve  spaces 
of  the  output . 

2.  Wire  the  first  six  hubs  of  MODE  1  to  six  of 
these  common  spaces  mentioned  in  Step  1. 

3.  Wire  hub  7  of  MODE  1  to  data  switch  1.   This 
will  output  the  digit  selected  by  data  switch 
1  in  the  seventh  column  of  the  punched  card. 

4.  Wire  hubs  8,  9,  and  10  of  MODE  1  to  hubs  3,  2, 
and  1  respectively  of  the  X  ANALOG  area.   This 
will  output  the  last  3  digits  of  the  X  coordin- 
ate value  on  the  8th,  9th,  and  10th  column  of 
the  punched  card . 

5.  Wire  hubs  11,  12,  and  13  of  MODE  1  to  three 
more  common  space  hubs.   This  puts  three 
spaces  on  the  punched  card  in  columns  11,  12, 
and  13. 

6.  Wire  hub  14  to  the  left  reset  hub  located  just 
below  the  MODE  1  area.   This  switches  control  to 
the  MODE  2  READOUT  area  and  the  readout  SCANNER 
will  continue  to  scan  from  the  first  hub  of  MODE 
2,  without  changing  the  position  of  the  mode 
switch  on  the  face  of  the  converter. 


*  The  authors  believe  that  these  instructions  hold  for  all 
Benson-Lehner  machines.   However,  the  reader  is  advised  to 
check  his  instruction  manual  for  variations. 
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7.  Wire  the  first  two  hubs  of  MODE  2  to  two 
remaining  common  space  hubs.   This  places  two 
more  spaces  (blanks)  in  columns  14  and  15. 

8.  Wire  hub  3  of  MODE  2  to  the  "sign"  hub  of  the 
Y  ANALOG  area.   This  places  the  proper  sign  in 
the  16th  column  of  the  punched  card. 

9 .  Wire  hub  4  to  data  switch  2 . 

10.  Wire  hubs  5,  6,  and  7  of  MODE  2  to  hubs  3,  2, 
and  1  respectively  of  the  Y  ANALOG  area.   This 
will  output  the  last  three  digits  of  the  Y  co- 
ordinate value  on  the  18th,  19th,  and  20th 
columns  of  the  punched  card . 

11,  Wire  hub  8  of  MODE  2  to  the  right  reset  hub. 
This  switches  control  from  MODE  2  back  to 
MODE  1.   Further  scanning  stops  at  this  point 
until  the  scan  (readout)  button  is  pressed  again. 

When  the  scan  button  is  pressed,  and  the  mode  switch  is 
in  the  MODE  1  position,  the  readout  scanner  will  begin  to  scan 
the  MODE  1  READOUT  hubs  and  will  output  whatever  digit  is 
patched  into  that  hub.   This  cycle  is  repeated  each  time  the 
scan  button  is  pressed. 

Although  other  wiring  systems  can  be  used  to  obtain  the 
same  type  of  output  format,  the  authors  found  this  system  very 
satisfactory  and  did  not  pursue  any  others. 

The  data  switch  is  used  to  output  the  thousands  digit 
of  the  X  coordinate.   Since  the  Model  F  converter  has  a  positive 
range  of  from  0  to  +999,  the  data  switch  is  used  to  increase 
this  range  up  to  9999.   To  accomplish  this,  the  data  switch  is 
initially  set  to  zero.   When  the  X  coordinate  (VRL)  reaches 
+999,  the  data  switch  is  set  to  "1"  and  the  X  channel  of  the 
converter  is  nulled.   This  is  done  by  pressing  the  clear  button, 
and  then  turning  the  X  channel  origin  dial  until  both  "null" 

*  Range  reset  switch,  Figure  25. 
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Nixie  tube  lights  are  out.   Pressing  the  scan  button  will 
now  output  1000  for  the  X  coordinate  value.   The  "1"  (first 
digit)  is  from  the  data  switch  and  the  three  zero's  represent 
a  new  origin  of  the  X  axis.   This  process  is  repeated  each 
time  the  X  coordinate  values  reach  999;  the  data  switch 
advancing  to  2,  3,  4,  etc.,  as  required  by  the  length  of  the 
accelerogram. 

This  process  is  not  necessary  for  the  Y  coordinate 
since  with  the  minus  sign,  the  range  is  from  -999  to  +999. 
This  allows  1998  counts  or  about  8  centimeters  from  the 
lowest  to  the  highest  point  on  the  accelerogram.   This  is 
usually  adequate  for  most  earthquake  records.   A  data  switch 
can  be  used,  however,  as  in  the  X  coordinate,  if  this  range 
is  exceeded. 

8.   Mounting  the  Accelerogram  Record  on  the  Benson-Lehner  Machine 

Mounting  the  accelerogram  onto  the  inclined  light  table 
of  the  record  reader  is  the  first  step  in  obtaining  digitized 
data  from  an  accelerogram  record.   Using  Figure  26  as  a  guide, 
the  procedure  is  as  follows: 

1.  Turn  on  the  light  behind  the  light  table. 

2.  Position  the  VRL  as  far  to  the  left  as  possible 
with  the  left  control  knob  (A) . 

3.  Place  the  accelerogram  record  between  the  light 
table  and  the  VRL.   The  leftmost  starting  point 
on  the  accelerogram  (time  =  0)  should  be  approxi- 
mately 1/4"  to  the  right  of  the  VRL  and  approxi- 
mately centered  between  the  top  and  bottom  of  the 


*   It  should  be  noted  that  the  terms  "record"  and  "accelerogram 
are  used  synonymously  in  this  section  of  the  report. 
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light  table.   Temporarily  hold  the  accelerogram 
in  this  location  by  placing  the  magnetic  bars 
over  the  left  and  right  edges. 

4.  Place  the  calibration  line  wand  (E)  in  the  over- 
lay clamp  (F)  initially  at  a  45°  angle. 

5 .  Turn  the  right  control  knob  (B)  clockwise  as  far 
as  possible.   The  intersection  of  the  VRL  CD)  and 
the  calibration  line  (E)  should  now  be  at  least 
1/4"  below  the  lowest  point  on  the  accelerogram 
record  (G)  or  fixed  trace  (H) . 

6.  Turn  the  right  control  knob  (B)  counter-clockwise 
as  far  as  possible.   The  intersection  of  the  VRL 
(D)  and  the  CL  (E)  should  now  be  at  least  1/4" 
above  the  highest  point  on  the  accelerogram  (G) . 
If  not,  adjust  the  angle  of  the  CL  wand  (E)  so 
that  this  requirement  is  met.   Return  to  Step  5 
and  recheck  the  lowest  point  again  with  the  new 
wand  angle.   (The  overlay  clamp  can  also  be  moved 
up  or  down  to  assist  in  achieving  Steps  5  and  6.) 

7.  Turn  the  right  control  knob  (B)  so  that  the  inter- 
section location  of  the  VRL  (D)  and  the  CL  (E)  is 
over  the  leftmost  portion  of  the  fixed  trace  (H) . 

8.  Turn  the  left  control  knob  (A)  clockwise  slowly 
and  check  to  see  that  the  intersection  location 
follows  the  fixed  trace.   If  the  fixed  trace  veers 
away  from  the  intersection  location,  tilt  the 
accelerogram  so  that  the  intersection  location 
follows  exactly  along  the  fixed  trace.   Return  to 
Step  5  and  check  again  to  see  that  all  the  following 
steps  (Steps  6  through  8)  are  carried  out. 
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9.   Using  masking  tape,  tape  the  accelerogram 

directly  to  the  light  table  so  that  its  position 
cannot  be  altered.   The  accelerogram  is  now  ready 
for  digitization  and  should  not  be  removed  or  re- 
positioned  until  a  satisfactory  record  of  digit- 
ized points  is  obtained  on  punched  cards  for  the 
component  of  the  accelerogram  in  question  including 
the  fixed  trace. 

Digitization  Operation  on  the  Benson-Lehner  Machine 

To  operate  the  Benson-Lehner  machine  and  effectively 
digitize  coordinate  data  from  an  accelerogram,  the  following 
procedure  is  used: 

1.  Turn  on  the  power  to  all  three  components,  i.e., 
the  light  behind  the  reader,  the  decimal  converter, 
and  the  card  punch  machine. 

2.  Turn  the  output  control  switch  of  the  decimal 
converter  to  "SETUP"  position  to  check  for  proper 
accelerogram  mounting  and  alignment. 

3.  Turn  both  scaling  knobs  of  the  X  and  Y  channels  to 
the  maximum  capability  of  the  machine  (250  counts 
per  cm  on  the  Model  F) . 

4.  Press  the  X  channel  Nixie  light  tube  (light  on)  to 
scan  the  X  coordinate  values.   Turn  the  left  control 
knob  (A)  of  the  reader  so  that  the  VRL  (D)  is  as  far 
left  as  possible.   The  location  of  the  first  point 
in  the  accelerogram  should  be  about  1/4"  right  of 
the  VRL. 

5.  Press  the  clear  button  and  adjust  the  origin  dial 
of  the  X  channel  so  that  the  null  Nixie  lights  are 


*   Including  corrections  after  plotting,  using  PHASE1. 
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off.   This  sets  the  X  origin  at  the  intersection 
location,  thus  making  all  subsequent  values  of 
X  positive. 

6.  Press  the  Y  channel  Nixie  light  tube  (light  on) 
to  scan  the  Y  coordinate  values.   Turn  the  right 
control  knob  (B)  so  that  the  intersection  location 
is  at  the  lowest  point  on  the  accelerogram  trace 
(G). 

7.  Press  clear  button  and  "Force  in"  the  digits  -999 
on  the  light  bank  by  pressing  these  lights. 
(Lights  will  go  on.)   Now  adust  the  origin  dial 
of  the  Y  channel  so  that  the  null  lights  are  both 
out.   This  places  the  zero  value  of  Y  999  counts 
above  the  intersection  location  thus  leaving 
another  999  counts  above  the  zero  value  of  Y. 
Press  scan  to  see  if  -999  reproduces  itself. 

8.  Obtain  the  scaling  factors  which  convert  decimal 
converter  "counts"  to  units  of  gravity  and  seconds. 
To  do  this,  measure  the  vertical  distance  (in 
centimeters)  between  the  lowest  and  highest  point 
on  the  accelerogram,  (AD) .   When  the  VRL  and  the  CL 
intersect  over  each  of  these  points,  press  the 
readout  button  (C)  and  record  their  respective 
values  that  appear  on  the  Nixie  light  tubes.   The 

difference  between  these  two  distances  is  denoted 

AV 
AV.   Thus  the  vertical  scale  is  -r=-  counts  per  cm. 

The  horizontal  scale  is  found  in  the  same  manner 

using  the  initial  time  (X  coordinate)  value  and 

the  +999  time  value  as  differencing  points.   (This 

information  is  used  later  to  convert  counts  to 
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units  of  gravity  and  seconds  and  also  in  the 
PLOTTR  subroutine  to  reproduce  a  full-scale 
plot  of  the  accelerogram.) 
9.    Press  the  X  channel  Nixie  light  switch  and 
check  to  see  that  the  mode  switch  is  in  the 
MODE  1  position. 

10.  Turn  the  output  control  switch  to  "PUNCH". 

11.  Depressing  the  readout  button  (C)  will  now  read 
the  coordinate  data  of  the  intersection  location 
of  the  VRL  (D)  and  the  CL  (E) . 

This  information  is  converted  to  a  digital  record  of  the 
X  and  Y  coordinates  and  punched  on  computer  cards. 

Digitizing  from  here  on  is  a  simple,  but  tedious,  opera- 
tion.  However,  the  care  taken  with  this  procedure  is  directly 
related  to  the  quality  of  the  final  result.   To  achieve  this 
objective,  the  operator  should  follow  these  few  quidelines: 

1.  Move  the  left  control  knob  (X  coordinate) 
clockwise  as  little  as  possible  between 
successive  points.   This  allows  for  the  max- 
imum number  of  data  points  to  be  digitized. 

2.  Keep  the  intersection  location  as  near  as 
possible  to  the  center  of  the  trace,  making 
certain  to  digitize  locations  at  all  peaks  and 
valleys  and  all  changes  in  straight-line 
patterns. 

3.  The  eyes  of  the  operator  should  always  be  normal 
to  the  light  table  and  over  each  digitized  point . 
One  operator  should  digitize  a  complete  record. 
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Deviation  from  this  guideline  will  yield  localized 
errors  which  are  difficult  to  find  and  correct. 
4.   Allow  the  converter  to  complete  its  conversion 
operation  before  moving  on  to  another  point. 

These  procedures  and  guidelines  should  yield  data  that 
is  as  reliable  as  possible  to  achieve  with  the  Benson-Lehner 
digitizing  machine. 

10.  Digitization  Corrections  -  Benson-Lehner 

After  the  accelerogram  and  fixed  traces  are 
digitized,  the  punched  cards  contain  the  data  for  use  in  the 
PHASEl  program.   One  of  the  features  of  this  program,  through 
the  use  of  the  PLOTTR  subroutine,  is  to  plot  a  full-scale  re- 
production of  the  digitized  data.   These  plots  are  used  to 
locate  and  correct  any  accidental  errors  in  digitizing.   This 
can  be  accomplished  by  the  following  procedure. 

Place  the  full-scale  plot  of  the  digitized  accelero- 
gram over  the  original  accelerogram  record  which  should  still 
be  mounted  on  the  record  reader.   If  these  traces  deviate 
appreciably,  corrections  must  be  made.   In  general,  this 
procedure  serves  to  relate  to  the  user  the  relative  quality 
of  digitization.   Tolerable  deviations  are  left  to  the  judge- 
ment of  the  user.   Gross  errors  such  as  peaks  and  valleys  that 
are  omitted  appear  as  a  straight-line  connection  between  ad- 
jacent points. 

If  a  correction  is  desired,  only  the  portion  of  the 
accelerogram  which  is  in  error  need  be  redigitized.   This  is 
accomplished  by  following  the  steps  in  the  Digitization 
Operation  section  with  a  few  exceptions.   In  steps  3,  4,  and 


*  The  use  of  a  measuring  magnifier  as  for  the  Electrak 
machine  will  help  to  define  the  point  in  the  center  of 
the  curve  path. 
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5  the  null  dial  must  be  adjusted  so  that  the  initial  X  value 
and  the  maximum  and  minimum  values  of  Y  agree  with  those  in  the 
initial  mounting  procedure.   In  addition  to  the  portion  of  the 
accelerogram  that  is  to  be  corrected,  the  minimum  and  maximum 
values  of  the  X  and  Y  coordinates  must  be  digitized  (an  ad- 
ditional four  points) .   This  is  necessary  to  obtain  a  plot  of 
the  corrected  data  to  the  proper  scale. 

When  the  redigitized  data  is  plotted,  the  corrected 
portion  is  placed  over  the  original  accelerogram  and  the  first 
plot.   If  the  two  plots  now  appear  to  be  a  satisfactory  dup- 
licate of  the  original  accelerogram,  the  incorrect  data  points 
(punched  cards)  are  simply  replaced  by  the  new  correct  data. 
Recall  that  the  PLOTTR  subroutine  plots  the  record  in  units 
of  inches  for  both  the  X  and  Y  axis.   To  find  the  X  coordinate 
in  the  listing  for  a  particular  record,  one  merely  scales  the 
differences  in  inches  between  the  beginning  of  the  record  and 
the  point  in  question  -  the  plot  in  the  X  direction  -  and  then 
multiplies  that  value  by  the  X  scaling  factor  in  counts/inch 
and  adds  the  initial  X  listed  value.   A  plot  of  the  new  data 
deck  will  now  yield  a  corrected  accelerogram.   This  full-scale 
plot  assures  the  user  that  the  data  that  will  be  used  in  the 
PHASE2  program  (see  Section  V)    is  a  correct  representation 
of  the  accelerogram  record. 

11 .  Comparison  of  Electrak  and  Benson-Lehner  Digitizers 

In  the  previous  portion  of  this  section,  two  methods 
of  digitizing  an  accelerogram  have  been  presented.   There  are 
distinct  advantages  and  disadvantages  to  each  method.   Over- 
all, digitization  with  the  Electrak  seems  to  offer  the  best 
results  as  far  as  obtaining  an  accurate  representation  of  the 
accelerogram.  However,  certain  factors  such  as  cost  and 
availability  of  equipment  can  necessitate  the  use  of  the 
Benson-Lehner  machine . 
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The  Electrak  machine  has  a  distinct  advantage  over 
the  Benson-Lehner  in  resolution,  i.e.  number  of  counts  per 
linear  measurement  of  accelerogram.   The  Electrak  can  record 
1000  counts  per  inch  as  compared  to  the   800  counts  per  inch 
(maximum)  returned  by  the  Cal .  Tech.  Benson-Lehner  machine. 
This  advantage  leads  to  a  more  accurate  digital  representation 
of  the  accelerogram. 

Another  primary  advantage  the  Electrak  possesses  over 
the  Benson-Lehner  is  in  the  speed  of  recording.   It  was  es- 
tablished that  the  time  necessary  to  set  up  and  record  28 
inches  of  accelerogram  trace  (including  a  fixed  trace)  on  the 
Electrak  is  about  four  hours,  while  the  Benson-Lehner  required 
seven  hours  for  22  inches  of  record  (including  fixed  trace) . 
The  primary  reason  for  this  is  that  each  coordinate  of  the 
trace  must  be  read,  converted  and  punched  on  cards  (on  the 
Benson-Lehner)  before  the  user  can  proceed  to  the  next  point. 
This  operation  takes  about  four  seconds  for  each  digitized 
point.   On  the  Electrak  machine,  this  is  done  almost  instant- 
ly.  (In  fact,  the  Electrak  can  record  continuous  points  at 
the  rate  of  about  five  points  per  second;  however,  it  is  not 
physically  possible  to  move  the  cursor  over  the  accelerogram 
trace  that  fast  and  retain  the  degree  of  accuracy  necessary 
for  integration.) 

A  third  advantage  the  Electrak  maintains  is  in  the 
recordable  size  of  the  accelerogram.   The  Electrak  recording 
table  has  the  capacity  of  recording  accelerograms  up  to  48 
inches  long  while  the  Benson-Lehner  is  limited  to  accelerogram 
lengths  of  about  22  inches. 

The  Electrak  machine  has  an  initial  cost  of  around 
$20,000  (depending  on  the  size  of  the  table  and  peripheral 
equipment)  while  the  Benson-Lehner  original  cost  was  about 
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half  this  amount.   (If,  of  course,  both  machines  are  available 
to  the  user,  original  cost  would  not  offer  any  advantage.) 

The  Benson-Lehner,  although  a  more  "primitive" 
analog- to-digital  reduction  device,  offers  the  advantage  of 
assurance  that  each  coordinate  point  is  recorded,  regardless 
of  the  accuracy.   Although  the  Electrak  offers  many  distinct 
advantages  over  the  Benson-Lehner,  the  user  can  never  be 
absolutely  certain  that  the  recorded  information  is  re- 
trievable in  a  usable  form.   It  was  found  that  95%  of  all 
digitized  data  was  retrievable  from  the  Electrak  machine. 
However,  in  a  very  few  cases,  (due  to  operator  error  or 
machine  error)  complete  records  were  lost  and  irretrievable. 
In  some  cases  (due  to  machine  error),  characters  containing 
digitized  coordinates  were  lost,  thus  eliminating  the  coordin- 
ate point.   These  record  loses  are  not  realized  until  after 
the  digitizing  process  is  complete  and  a  full-scale  plot  is 
prepared. 

With  the  Benson-Lehner  digitizing  machine,  however, 
the  operator  knows  immediately  if  a  certain  coordinate  point 
is  not  recorded.   Each  point  is  immediately  punched  on  a 
computer  card,  the  operator  hears  the  punching  process  and 
has  physical  evidence  (the  cards)  that  the  recording  process 
is  taking  place.  With  the  Electrak  machine,  the  data  is  sent 
to  a  magnetic  tape  (a  relatively  silent  process)  and  the 
quality  of  the  information  cannot  be  periodically  inspected. 

The  frequency  of  other  types  of  human  errors  appear 
to  be  equal  for  both  digitizing  methods.   It  should  be  em- 
phasized that  the  reliability  of  the  Electrak  method  is 
usually  very  high  and  is  discussed  above  only  to  inform  the 
user  of  the  remote  possibilities  of  record  loses.   Overall, 
the  Electrak  machine  possesses  the  greatest  advantage  of  the 
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digitizing  process  and  is  recommended  for  the  digitization 
of  accelerograms. 

12.  Baseline  Corrected  Data  -  Electrak  versus  Benson-Lehner 

The  resulting  digitized  baseline  corrected  accelero- 
grams  are  shown  in  Figures  28  and  29.   Figure  28  is  a  plot  of 
the  baseline  corrected  accelerogram  digitized  on  the  Electrak 
machine  and  Figure  29  is  a  plot  of  the  same  baseline  corrected 
accelerogram  digitized  on  the  Benson-Lehner  machine.   (Note, 
since  the  data  has  not  been  scaled  (to  be  done  in  Phase2) ,  the 
values  representing  time  and  acceleration  are  relative  values 
only . ) 

At  first  glance,  both  plots  appear  to  be  quite  similar 
However,  a  closer  inspection  will  reveal  slight  differences. 
The  major  difference  lies  in  the  overall  number  of  points  that 
were  digitized.   The  Electrak  machine  recorded  a  greater  num- 
ber of  points  than  the  Benson-Lehner  machine.   This  higher 
frequency  of  data  points  produces  a  more  staggered  line  be- 
tween adjacent  peaks  and  valleys. 

The  two  digitized  and  plotted  records  do,  however, 
represent  the  original  accelerogram  in  digital  form.   The  data 
used  to  plot  these  graphs  is  now  ready  for  further  processing. 

13.  Perkin- Elmer  Microdensitometer 

Figure  30  shows  the  model  1010A  Microdensitometer  unit 

of  the  Perkin-Elmer  Photometric  Data  Systems'  Microdensito- 

** 
meter  System,    at  the  Optical  Sciences  Laboratories  of  the 

University  of  Arizona.   Because  the  system  was  not  fully 


*   Baseline  corrected  means  that  the  Y  position  of  the  fixed 
trace  has  been  subtraced  from  the  Y  position  of  the  accel- 
eration trace  using  an  interpolation  scheme  in  the  PHASEl 
subroutine. 

**  Perkin-Elmer  Corporation,  Boiler  &  Chivens  Division,  916 
Meridian  Avenue,  South  Pasadena,  California  91030. 
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FIGURE  30  MODEL  1010A  PERKIN-ELMER  MICRODENSITOMETER 


Mirror 


Platen 


Objective 


Dichroic  Filter 


Lamp 


FIGURE  31  OPTICS  OF  PERKIN-ELMER  MICRODENSITOMETER 
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operational  at  the  time  this  research  was  prepared,  the  authors 
used  an  operational  system  at  the  Kitt  Peak  National  Observa- 
tory for  a  20-minute  scan,  which  was  all  the  time  allowed 
under  a  crowded  operation  schedule  at  Kitt  Peak.   However, 
this  was  enough  to  establish  the  possibility  of  the  system  for 
accelerogram  digitizing  purposes  and  the  problems  that  occur 
for  this  use. 

The  microdensitometer  system  is  designed  to  take 
accurate  readings  of  very  small  areas  of  a  photographic  plate 
or  film  at  precise  locations.   Plates  or  film  can  be  measured 
in  terms  of  either  density  or  transmission  over  a  dynamic  range 
in  density  of  0.0  to  5.115.   Signals  describing  the  measured 
density  or  transmission  values  are  produced  from  a  photo- 
multiplier  tube  and  amplifier,  fed  to  an  analog- to-digital 
converter  and  then,  as  digitized  information,  routed  to  the 
core  memory  of  the  controlling  computer  system.   The  end  pro- 
duct is  either  output  onto  a  magnetic  tape,  a  strip  chart 
recording,  or  a  teletype  page. 

A  Digital  Coordinate  Readout  System  (not  shown) 
monitors  and  displays  the  X  and  Y  stage  positions  in  microns, 
provides  signal  interrupts  to  the  computer  when  scan  limits 
are  reached  and  also  at  setable  intervals  for  density 
measurement.   The  model  101 0A  microdensitometer  unit  consists 
essentially  of  three  systems:  one  to  measure  density  or  trans- 
mission information,  one  to  show  the  storage  in  either  or  both 
X  and  Y  directions,  and  one  to  generate  precise  storage  posi- 
tion information. 

Density  measurement,  Figure  31,  is  accomplished  by 
passing  a  beam  of  light  through  the  illuminating,  lower, 

-6 


*  A  micron  for  this  machine  is  depicted  to  be  10   meters 


or  10  ^  centimeters. 
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optical  system,  through  the  sample  being  tested,  and  on  to 
the  analyzing,  upper,  optical  system  which  is  symetrical  to 
the  first,  then  on  to  the  photomultiplier  tube.   The  illumin- 
ating optical  path  contains  eight  preslit  apertures  selected 
to  suit  a  matching  set  of  eight  scanning  apertures  in  the  upper 
optical  path.   Four  of  the  apertures  are  square  and  four  are 
rectangular.   The  availability  of  two  objective  magnifications 
(X10  and  X4)  and  four  secondary  magnifications  provide  a  wide 
variety  of  apertures  to  choose  from. 

With  only  one  run  available,  the  authors  decided  to 
use  a  40  x  40  micron  slit  size.  This  allowed  a  grid  of  635 
counts  per  inch  in  either  the  X  or  Y  .directions. 

The  photomultiplier  converts  the  light  intensity  into 
a  voltage  signal,  which  is  amplified  by  a  logarithmic  converter 
into  density  output  values,  i.e.  from  0.0  to  0.115. 

Each  stage  axis  is  driven  independently  by  a  precision 
DC  servo  motor/ tachometer  system  ensuring  uniformity  of  stage 
motion.   The  stage  accommodates  films  or  plates  up  to  10"  x  10". 
For  that  reason  a  film  negative  with  a  maximum  dimension  of  9" 
along  the  record  was  prepared  from  the  original  contact  opaqued 
negative.   Also  the  middle  (Down)  acceleration  portion  was 
completely  eliminated  by  opaqueing  on  the  reduced  negative. 
However  the  middle  fixed  trace  was  retained,  while  the  fixed 
trace  for  the  N76°W  and  S16  E  components  were  eliminated.   The 
software  computer  program  did  not  allow  differencing  between 
the  fixed  trace  and  acceleration  curve  for  the  same  component. 
The  film  was  placed  on  the  platen  of  the  microdensitometer 
(Figure  31) ,  and  overlain  with  a  clear  glass  plate  to  keep  it 
flat. 

14.  Scan  Parameters 

A  scan  or  scan  line  is  defined  as  a  single  sweep 
(traverse)  across  the  plate,  the  length  of  the  sweep  and  the 
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distance  between  data  points  being  specified  by  the  user. 
When  magnetic  tape  is  used,  this  scan  line  will  be  written  as 
one  or  more  magnetic  tape  records,  depending  on  the  number  of 
data  points  in  the  scan  line.   A  scan  pattern  consists  of  a 
series  of  one  or  more  parallel  scan  lines,  with  a  specified 
distance  between  each  scan  line. 

When  magnetic  tape  is  used,  one  complete  scan  pattern 
is  written  as  one  file  on  the  magnetic  tape.   Therefore,  the 
scan  pattern  covers  a  rectangle  whose  width  is  the  length  of 
one  scan  line  and  whose  length  is  defined  by  the  number  of 
scan  lines  in  the  pattern  and  the  distance  between  scan  lines. 
The  corresponding  magnetic  tape  file  will  consist  of  NS  (no. 
of  scan  lines)  by  NR  (no.  of  points  per  scan)  followed  by  an 
end  of  file.   Two  end  of  files  signify  end  of  information. 
During  the  20  minute  scan  NS  was  equal  to  1168,  and  NR  was 
equal  to  2850;  thus  about  1/4  of  the  total  accelerogram  was 
recorded.   The  data  was  placed  on  the  tape  in  a  raster  scan 
pattern.   A  raster  scan  pattern  is  one  where  consecutive  scans 
are  done  in  opposite  directions,  while  an  edge  scan  pattern  is 
one  in  which  scanning  is  only  done  in  one  direction,  with  no 
data  being  taken  on  the  return  movement  of  the  platen. 

15.  Reduction  of  Data  -  Microdensitometer 

A  software  package  OPSCAN   was  used  to  retrieve  the 
data  from  the  tape  in  usable  form.   Essentially  OPSCAN  first 
unpacks  the  Identification  Record  at  the  beginning  of  each 
file,  such  as  NS,  NR,  origin  position  etc.   Then  it  unpacks 
each  scan  line.   On  the  raster  scan  it  returns  the  data  in 
reversed  order.   As  each  scan  is  read  the  program  searches 
the  density  values  to  be  below  a  fixed  limit  (clear  film) , 


*  Obtained  from  the  Solar  Division,  Kitt  Peak  National 
Observatory,  and  revised  for  use  in  digitizing. 
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counts  the  number  of  points  in  an  array  of  points  while  crossing 
a  clear  Y  width  of  film,  and  chooses  the  midpoint  of  that  array 
to  be  output  as  a  Y  coordinate.   The  values  of  the  X  and  Y 
coordinates  are  given  as  a  position  number  of  the  midpoint  in 
the  scan  pattern,  or  are  relative  representations  of  time  (X) 
and  acceleration  (Y) . 

Figure  32  shows  the  data  obtained  for  the  first  200 
scan  lines,  which  cost  approximately   $5   to  run  on  the  CDC 
6400  computer.   For  an  8"  length  of  record  the  computer  cost 
alone  would  have  been  approximately  $127,  not  a  small  amount 
even  though  three  components  of  acceleration  can  be  digitized 
this  way  at  one  time  by  first  creating  a  negative  with  three 
components  and  one  fixed  trace.   At  635  counts/ inch  in  both 
the  X  and  Y  directions  there  would  have  been  2850  x  635  x  8 
=  14,478,000  data  points  to  be  examined  in  the  full  test  record. 
Furthermore  commercial  rates  for  the  required  4  hour  scan  on 
the  microdensitometer  (quoted  at   $60/hour  by  one  microdensi- 
tometer  installation  in  California)  would  add  another  $240 
to  the  bill.   This  method  is  therefore  quite  expensive  per  run 
even  when  one  has  free  access  to  the  microdensitometer. 

Figures  33  and  34  show  the  plots  of  Figure  32  onto  Figures 
16  and  20  respectively.    Photographic  problems  on  the  accel- 
erograph  record  prevent  an  accurate  digitization  representative 
of  the  acceleration  curve.   The  automatic  scanning  system  can 
select  the  midpoint  of  an  array  of  points  in  its  line  of  trace, 
but  cannot  discern  where  traces  overlap.   One  way  of  overcom- 
ing this  problem  would  be  to  make  a  negative  of  the  original 
negative  copy  (that  is  acceleration  curves  would  be  black  on 
clear  film) ,  and  then  cut  separations  between  adjoining  peaks 
and  valleys  using  a  film  cutter,  as  indicated  in  Figure  35 
but  the  separations  are  difficult  to  place  accurately  even 
with  the  aid  of  a  magnifying  glass.   In  view  of  the  above 
limitations  the  microdensitometer  method  is  not  recommended 
for  general  accelerogram  digitizing,  but  can  be  used  where 
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IP 


FIGURE  33   PLOT  OF  MICRODENSITOMETER  DATA  FOR  1.3  SECONDS 
OF  RECORD,  N74°W  COMPONENT,  PACOIMA  DAM 
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FIGURE  34  PLOT  OF  MICRODENSITOMETER  DATA  FOR  1.3  SECONDS 
OF  RECORD,  S16°E  COMPONENT,  PACOIMA  DAM 
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FIGURE  35   IMPROVED  S16  E  COMPONENT,  PACOIMA  DAM 

RECORD,  OBTAINED  BY  CUTTING  FILM  EMULSION 
BETWEEN  ADJACENT  PEAKS  AND  VALLEYS  OF  CURVES 
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the  peaks  and  valleys  are  far  enough  apart  so  that  the  automatic 
optical  scanning  system  can  produce  a  series  of  digitized  points 
representative  of  the  path  of  the  original  curve.   For  interested 
researchers  wishing  to  examine  this  method  further,  the  OPSCAN 
program  that  produced  Figure  32,  using  the  CDC  6400  computer, 
is  listed  in  Appendix  F  . 

16.  Digitization  with  the  Microfische  Film  Reader 

Hand  digitizing  using  a  microfische  film  reader  was 
first  considered  as  an  expedient  measure  when  no  commercial 
digitizer  was  available;  however,  the  excellent  results  obtained 
might  make  this  method  highly  desirable.   The  method  takes  more 
time  than  commercial  digitizers,  but  results  in  less  eyestrain, 
since  no  magnifiers  are  required.   Also  the  problem  of  parallax, 
difficult  to  control  on  the  Benson-Lehner  machine,  is  eliminated. 

One  of  the  problems  in  any  projection  system  is  to 
establish  linearity  to  scale  for  the  projection.   The  problem 
was  solved  by  projecting  a  linear  grid  together  with  the  film 
record.   The  resolution  can  better  that  of  the  Electrak  machine. 

Figure  36  is  a  schematic  of  the  setup  for  the  micro- 
fische film  reader.   The  front  view  screen  is  removed.   A 
positive  print  of  the  original  negative  reduced  to  8"  maximum 
length  (black  on  clear  film)  is  placed  in  contact  with  133 
lines/inch  halftone  printing  film.   Halftone  printing  film  is 
consistent  in  equal  grid  spacing,  and  serves  as  a  background 
reference  grid  for  establishing  coordinate  locations  on  the 
accelerogram.   The  printing  film  and  positive  accelerogram  are 
then  placed  on  the  platen  of  the  microfische  film  reader  and 
projected  onto  a  wall,  on  which  a  36"  x  36"  paper  grid  with 
1"  c.c.  heavy  lines  in  both  directions  is  already  located. 
By  suitable  movement  and  focusing  of  the  microfische  film 
reader  the  enlargement  of  the  printing  screen  can  be  arranged 
so  that  the  center  of  the  screen  circles  coincide  as  nearly 
as  possible  to  all  the  1"  square  grid  crossings  on  the  paper. 
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In  this  way  a  linear  projection  of  the  accelerograph  is  focused 
on  the  wall  at  a  greatly  enlarged  scale  (the  authors  used  a 
24X  enlargement  lens).   Figure  37  shows  the  resulting  projection 
for  the  first  1.3  seconds  of  N76  W  Pacoima  Dam  record.   An 
origin  is  established  on  the  paper  record  and  the  digitized 
points  are  recorded.   Since  the  platen  will  have  to  be  moved 
several  times  to  obtain  the  full  record,  different  colored  felt 
tip  pens  can  be  used  for  different  sections  of  the  record, 
projected  onto  the  same  grid  paper.   Afterwards  the  coordinate 
locations  are  merely  read  off  of  the  paper  grid  and  hand- 
punched  onto  cards.   Figure  37  also  shows  an  excellent  plot 
of  the  scaled  data.   Some  idea  of  the  accuracy  involved  can  be 
stated  as  follows: 

The  original  full  record  was  28  seconds  at  17  inches 

28 
long.   One  inch  on  the  Electrak  machine  rr=  =   1.647  seconds  of 

record  is  identified  with  1000  machine  counts.   The  reduced 
record  on  the  microfische  is  8  inches  long  and  has  133  lines 
of  printing  screen  per  inch  or  16.625  screen  lines/ inch  of 
original  record.   But,  the  record  is  projected  so  that  a  1" 
square  on  the  film  becomes  a  16.625"  x  16.625"  square  on  the 
wall.   The  paper  grid  on  the  wall  is  finely  divided  to  0.1 
intervals  and  can  be  easily  interpolated  by  eye  to  0.01  in- 
tervals.  Therefore,  a  microfische  count  of  1662. 5/ inch  of 
original  record  is  possible. 
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FIGURE  37  MICROFISCHE  PROJECTION  -  FIRST  1.3  SECONDS  OF  N76°W 
PACOIMA  DAM  RECORD 
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III.   PHASE1  SUBROUTINE  -  DIGITIZATION 

Introduction 

The  PHASE1  subroutine  is  a  preliminary  computer  program 
that  processes  raw  digitized  accelerogram  data  into  a  form  that 
can  be  utilized  by  a  second  phase  program  (PHASE2  -  Appendix  D 
for  filtering  and  integration.   PHASE1  reads  data  that  has  been 
digitized  from  an  Electrak  100  (on  a  7  or  9-track  magnetic 
tape)  or  a  Benson-Lehner  digitizing  machine  (on  IBM  key-punched 
computer  cards) .   The  program  is  written  in  FORTRAN  IV  and 
is  designed  for  use  on  the  CDC  6400  computer  or  IBM  360/370 
O.S.  computer.   It  has  a  capacity  of  3000  digitized  accelero- 
gram points  per  component  or  about  30  seconds  of  an  earthquake 
record. 

PHASEl  is  used  as  a  "first  step"  data  handling  program 
to  make  necessary  corrections  prior  to  subsequent  integration 
and  can  be  used  to  punch  corrected  data  on  IBM  computer  cards. 
Any  number  of  digitized  components  can  be  processed  by  PHASEl 
as  long  as  CP  time  is  available   (See  User's  instruction  for 
details.) 

Purpose 

The  quality  of  digitized  accelerogram  data  depends 
highly  on  the  expertise  and  skill  of  the  operator.   Since  this 
human  function  is  susceptible  to  error,  a  method  of  correcting 
these  errors,  before  further  processing,  is  of  utmost  import- 
ance.  The  primary  purpose  of  PHASEl  is  to  locate  accidental 
errors  so  that  the  user  can  make  the  necessary  corrections 
before  proceeding  to  subsequent  filtering  and  integration 
of  the  accelerogram  data. 
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In  addition  to  human  error,  machine  error  can  also 
nullify  the  quality  of  a  good  digitized  record. 

For  either  case,  any  integration  and  filtering  scheme 
is  only  as  good  as  the  input  data.   The  quality  of  the  final 
result  is  directly  related  to  the  quality  of  the  input  data. 


3.   Features 


PHASEl  produces  a  plot  of  the  digitized  data,  through 
the  use  of  subroutine  PLOTTR.   This  is  especially  useful  when 
the  plot  is  reproduced  to  the  exact  dimensions  of  the  original 
accelerogram  trace.  By  placing  the  full-scale  plot  over  the 
original  accelerogram,  deviations  between  the  two  are  quite 
obvious  if  an  error  in  the  input  data  exists.   This  plot  is  a 
representation  of  the  data  that  will  be  subsequently  filtered 
and  integrated;  therefore,  any  errors  must  be  corrected  before 
further  processing.  (The  actual  correction  procedure  depends 
on  the  machine  from  which  the  data  was  originally  digitized 
and  is  explained  in  detail  in  the  corresponding  digitizing  sec- 
tion of  this  report.) 

After  these  corrections  (if  necessary)  are  made, 
another  full-scale  plot  may  be  made  using  the  corrected  data. 
If  the  new  plot  agrees  with  the  original  accelerogram,  the 
user  can  now  be  assured  that  his  data  is  correct  and  should 
yield  good  results  when  filtered  and  integrated. 

Another  basic  feature  of  PHASEl  is  to  convert  data 
recorded  on  a  7  or  9-track  magnetic  tape  (by  the  Electrak 
machine)  to  punched  cards.   This  is  necessary  before  going  on 
to  the  PHASE2  program.   The  Electrak  machine  recording  errors 
are  also  corrected  by  PHASEl  (details  of  this  portion  are 
given  in  the  TRAK  010  subroutine  section  in  Appendix  E. 
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As  a  final  option  of  PHASE1   the  data  may  be  scaled 
and  the  baseline  corrected.   This  feature  yields  acceleration 
values  that  are  relative  to  a  horizontal  straight  line  which 
represents  the  average  acceleration  of  the  entire  earthquake 
record.   All  acceleration  values  are  thus  given  as  being  either 
positive  or  negative  if  they  are  greater  or  less  than  this 
average  acceleration.   Also  the  initial  time  value  is  changed 
to  zero  and  all  subsequent  values  of  time  increase  accordingly. 
In  effect,  this  feature  of  PHASE1  places  the  X  origin  at  the 
first  digitized  point  with  the  accelerogram  trace  oscillating 
about  an  average  acceleration  value  (i.e.,  the  X  axis). 

The  options  available  to  the  user  are  sufficient  to 
accomplish  the  necessary  requirements  before  proceeding  to 
further  data  processing.   It  should  be  noted,  however,  that  if 
corrections  are  to  be  made  before  processing  data  in  PHASE2, 
baseline  corrected  data  cannot  be  used  since  the  time  and 
acceleration  output  values  are  not  the  same  as  the  input  data. 
Baseline  corrected  data  should  only  be  obtained  after  the  user 
is  assured  that  the  data  has  been  correctly  digitized  or  that 
all  necessary  corrections  have  been  made.   When  this  require- 
ment is  satisfactorly  fulfilled,  the  baseline  correction  option 
is  exercised  and  the  new  data  is  ready  for  further  processing 
in  the  PHASE2   subroutine. 

4.  How  the  PHASE!  Subroutine  Works 

PHASEl  consists  of  eight  major  steps  which  are  as 
follows: 

A.   Pass  1  —  Plotting  the  digitized  data  to  the  scale 
of  the  original  accelerogram. 

1 .  Read  and  write  the  title  and  main  control 
information. 

2.  Read  in  the  raw  digitized  data,  count  the 
number  of  data  points  and  write. 

Call  subroutine  PLOTTR  to  plot  the  data 
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and  go  to  step  7 . 
7.   Punch  the  data. 
Pass  2  —  Prepare  baseline  corrected  data  after  all 
corrections  have  been  made  to  the  raw  data. 

1.  Read  and  write  the  title  and  main  control 
information. 

2.  Read  in  the  corrected  raw  data,  count  the 
number  of  data  points,  and  write. 

3.  Check  the  time  values  for  continuously 
increasing  times. 

4.  Read  and  write  the  fixed  trace  data  (if  any) 
and  deduct  from  the  acceleration  values. 

5.  Adjust  the  data  for  initial  time  equal  to 
zero  and  a  new  zero  baseline. 

6.  Plot  the  baseline  corrected  data. 

7.  Punch  the  baseline  corrected  data  for  use 
in  PHASE2. 

8.  Return  to  step  one  and  repeat  the  process 
if  other  raw  corrected  data  is  available. 


Step  1 


This  step  consists  of  reading  and  writing  the  title 
and  the  main  control  information  input  on  the  first  four  cards 
of  the  data.   The  main  control  information  (second  and  fourth 
cards)  direct  the  program  to  yield  the  desired  output  (i.e., 
a  plot  of  raw  or  baseline  corrected  data  and  a  punched  deck 
of  raw  or  baseline  corrected  data) . 
Step  2 

The  second  step  reads  the  raw  digitized  time-accelera- 
tion data  from  magnetic  tape  or  raw  or  corrected  digitized 
time-acceleration  data  from  punched  cards  depending  upon  the 
value  of  "INPUTP"   given  in  the  fourth  control  card.    If  the 
data  is  to  be  read  from  a  magnetic  tape,  the  data  is  first 
corrected  and  placed  in  a  format  (4x,2F6.0),  usable  by  the 


*  See  listing  in  Appendix   D  ,  page  D-3. 
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computer.   If  the  data  is  to  be  read  from  punched  cards,  the 
data  is  read  in  format  (2F10.Q)  and  consecutively  placed  in 
the  TIME  and  ACCEL  arrays.   The  number  of  data  points  are 
counted,  checked  to  see  that  they  don't  exceed  the  size  of  the 
arrays,  and  then  written  on  the  output  file. 
Step  3 

This  step  is  included  merely  as  a  means  of  assuring 
that  the  data  is  continuously  increasing  with  time.   Since  some 
digitizing  machines  are  extremely  sensitive,  the  possibility 
exists  where  a  subsequent  data  point  may  be  digitized  with  a 
time  value  less  than  the  previous  point.   This  possibility 
does  not  actually  represent  the  intent  and,  therefore,  should 
be  eliminated.   If  a  subsequent  time  value  does  happen  to  be 
smaller  than  the  previous  time  value,  the  subsequent  value  is 
equated  to  the  previous  (greater)  value. 
Step  4 

In  this  step,  fixed  trace  values  (if  any  are  included), 
are  read  into  memory,  smoothed,  and  deducted  from  the  accelera- 
tion values.   This  process  eliminates  errors  that  are  caused 
by  improper  accelerogram  alignment  on  the  digitizer  or  on  the 
accelerograph  itself.   The  smoothing  process  simply  applies  a 
weighted  mean  (1/4,  1/2,  1/4)  to  each  Y  coordinate  of  the  fixed 
trace  and  the  two  adjacent  Y  coordinates.   The  deduction  pro- 
cess requires  interpolating  the  smoothed  Y  coordinates  to  time 
values  that  coincide  with  each  acceleration  value  and  then 
deducting  the  corresponding  fixed  trace  value  from  the  acceler- 
ation value.   For  the  above  smoothing  process  it  is  recommended 
that  fixed  trace  digitized  points  be  equally  spaced  in  time, 
say  at  intervals  of  the  order  of  one-half  second. 
Step  5 

This  portion  scales  the  time  and  acceleration  values, 
subtracts  the  initial  time  from  all  subsequent  time  values  and 
changes  the  acceleration  values  relative  to  an  average  acceler- 
ation.  The  time  and  acceleration  values  are  scaled  according 
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to  the  factors  SCALET  and  SCALEA  respectively.   The  accelera- 
tion trace  is  then  integrated  to  obtain  the  "area"  (under  the 
trace) .   This  area  is  divided  by  the  total  time  of  the  record 
to  yield  an  average  acceleration  value.   The  new  baseline 
corrected  acceleration  is  then  the  difference  between  the  old 
acceleration  and  the  new  average  acceleration  value.   Physically 
this  sets  the  change  in  ground  velocity  from  beginning  to  end 
of  record  to  zero.   When  no  fixed  trace  is  available,  the 
baseline  is  not  only  first  translated  to  make  the  mean  zero 
as  above,  but  then  a  very  small  rotation  is  introduced  to  make 
the  sum  of  the  squares  of  the  deviations  from  the  zero  line  a 
minimum . 
Step  6 

The  time-acceleration  data  is  plotted  in  this  portion 
of  PHASE1.    For  pass  1  the  call  to  subroutine  PLOTTR  provides 
the  means  of  plotting  the  data  to  the  exact  size  of  the  original 
accelerogram.   No  labeled  coordinate  axes  are  provided.   The 
location  of  coordinate  input  data  is  described  in  the  section 
on  digitizing.   For  pass  2  it  is  necessary  to  first  obtain  the 
maximum  and  minimum  values  of  the  corrected  data,  and  utilizing 
these  values  for  the  desired  dimensions  of  the  plot,  the  scaling 
factors  are  obtained.   These  scaling  factors  convert  time-accel- 
eration values  to  dimensions  compatible  for  the  plotter,  and 
labeled  relative  coordinate  axes  are  provided.   In  addition, 
the  title  of  the  data  is  printed  on  the  output  plot  for  both 
passes. 
Step  7 

The  desired  time-acceleration  data  is  punched  on 
computer  cards  in  the  format  4(2F10.3).   The  "4"  yields  four 
data  points  per  card,  each  data  point  consisting  of  two 
quantities,  i.e.,  the  time  and  acceleration  values. 
Step  8 

In  this  step  control  is  directed  to  the  beginning  of 
the  program  where  more  data  is  read.   If  a  title  card  is  read, 

78 


the  program  expects  to  process  another  accelerogram  component 
If  an  end-of-file  card  is  read  the  program  terminates. 

A  flow  chart  of  the  PHASE  1  subroutine  is  shown  in 
Figure  38.  Figures  28  and  29*  show  baseline  corrected  plots 
from  Electrak  and  Benson-Lehner  data  respectively. 
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FIGURE  38  FLOWCHART  OF  PHASE1  SUBROUTINE 
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IV.   INTEGRATION 

1.  Introduction 

After  the  analog  data  has  been  digitized  and  corrected 
for  accidental  digitizing  errors,  it  must  be  integrated  to  be 
of  use  in  a  design  problem.   The  approach  used  by  Cal .  Tech. 
is  basically  a  step  by  step  process  of  integrating,  least- 
squaring,  filtering,  and  instrument  correction.   Integration 
of  acceleration  is  necessary  to  obtain  velocity  and  displace- 
ment.  Filtering  of  the  data  is  required  to  remove  random  and 
systematic  errors  that  result  from  digitization  and  integra- 
tion. 

In  this  section,  we  shall  discuss  sources  of  errors, 
methods  of  integration,  filtering,  leastsquaring,   and  instru- 
ment correction,  and  how  the  Cal.  Tech.  program  uses  these 
methods  to  try  to  reduce  the  effects  of  errors. 

2.  Sources  of  Errors 

One  problem  with  obtaining  actual  true  ground  dis- 
placement from  an  earthquake  accelerogram  is  the  presence  of 
extremely  low  and  high  frequency  digitized  errors.   It  has 
been  found  that  these  errors  are  sometimes  random  and  some- 
times systematic  and  are  due  to  the  nature  of  the  recording 
and  digitizing  methods.      These  errors  contain  long  and 
short  period  components  which  do  not  actually  exist  in  the 
original  accelerogram  and  therefore  must  be  eliminated. 

Some  of  the  causes  of  long  period  errors  are:  trans- 
verse play  of  the  recording  paper,  warping  of  records, 
enlargement  of  records,  imperfections  in  the  digitizing 
machine,  and  imperfections  in  the  recording  instrument  itself. 
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Short  period  (high  frequency)  errors  are  caused  by 
imperfections  in  the  recording  instrument,  random  digitization 
errors,  and  inadequate  resolution  of  the  digitizing  machine. 

These  errors  are  inherent  in  the  present  methods 
used  to  obtain  actual  ground  displacement.   To  isolate  and 
retain  valid  digital  records  of  the  accelerogram  within  a 
realistic  frequency  range,  a  low-pass  digital  filtering  scheme 
is  used.   (This  method  is  described  later  under  "Methods  of 
Filtering") .   A  low-pass  filter  "filters  out"  data  containing 
high  frequency  recording  errors  and  allows  the  lower  frequency 
(long  period)  component  to  pass.   Unrealistic  low  frequency 
errors  are  eliminated  by  first  isolating  the  long  period  com- 
ponent and  then  deducting  it  from  the  original  data.   This  is 
a  way  of  high-pass  filtering  the  data. 

It  has  been  found  through  empirical  studies    ' 

that  the  limiting  values  of  reliably  retrievable  digitized  data 

are  between  0.07  Hz  and  25  Hz.  Thus  if  any  (sinusoidal-like) 

periods  exist  in  the  data  longer  than  16  seconds  or  shorter 

1 
than  0.04  seconds  (T  =  — ) ,  these  periods  will  be  eliminated. 

Another  source  of  error  that  any  data  reduction  scheme 
must  deal  with  is  that  of  correlating  actual  ground  displace- 
ment with  instrument  transducer  response  (See  Figure  2-b) .   The 
relative  movement  x  of  the  transducer  is  defined  by  the 

equation: 

2 

x  +  2(i)  6  -.x  +  co  x  =  -a 
o  o     o 

where  6   is  the  critical  damping  coefficient  of  the  recording 
transducer,  a)  is  the  natural  frequency,  and  "a"  represents  the 
absolute  ground  displacement.   Since  high  frequency  errors  are 
magnified  by  differentiation,  the  acceleration  is  low-pass 
filtered  before  the  instrument  correction  is  applied. 
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A  third  major  source  of  error  associated  with 
calculating  ground  displacement  from  acceleration  is  the 
location  of  a  zero  baseline  to  represent  zero  acceleration. 
Since  the  accelerogram  trace  is  triggered  by  the  earthquake 
itself,  the  initial  portion  of  the  record  is  lost,  denying 
the  seimologist  of  the  location  of  initial  zero  acceleration. 
To  overcome  this  handicap,  the  digitized  acceleration  values 
are  leastsquare  fitted  so  that  the  sum  of  the  squares  of  the 
differences  between  the  zero  baseline  and  the  acceleration 
values  is  a  minimum.   (The  mathematics  of  this  procedure  is 
presented  in  Appendix  A.)   According  to  reference  12, 
integration  of  the  leastsquared  acceleration  magnifies  long 
period  errors  in  velocity  and  displacement;  therefore,  these 
quantities  are  high-pass  filtered  to  eliminate  the  low 
frequences.   It  will  also  be  shown  that  the  leastsquaring 
procedure  disturbs  the  record  by  its  own  mathematical  routine. 


Integration 

The  digitized  data  representing  an  accelerogram  trace 
(See  Figure  A-l)  is  in  the  form  of  a  series  of  coordinates 
defining  a  distinct  location  on  a  two-dimensional  plane.   The 
acceleration  function  is  thus  considered  piecewise  continuous 
consisting  of  many  short  straight-line  segments  (i.e.,  the 
dashed  line).   To  integrate  a  function  such  as  this,  the 
"Trapezoidal  Rule"  (a  numerical  method  for  integrating  a  con- 
tinuous function)  is  utilized.   The  Trapezoidal  Rule  is  de- 
fined as  follows: 
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where  V  is  the  integrated  quantity  of  the  function  a  and 
At  is  the  interval  along  the  time  axis  between  corresponding 
consecutive  values  of  a..   Essentially,  the  function  V  repre- 
sents the  area  under  the  acceleration  curve  between  the  time 

interval  t.—^t.,..   The  formula  is  an  extension  of  the 
1    l+l 

standard  method  for  determining  the  area  of  a  trapezoid. 

Because  of  the  nature  of  the  input  data  (i.e.,  piece- 
wise  continuous) ,  this  method  of  numerical  integration  yields 
accurate  results. 

Methods  of  Filtering 

Direct  integration  of  accelerogram  data  from  the 
digitized  records  does  not  accurately  represent  actual  ground 
velocity  and  displacement.   There  are  several  reasons  for  this 
Paramount  among  these  is  the  fact  that  the  recording  instru- 
ment itself  does  not  have  the  capability  of  recording  fre- 
quencies higher  than  25  Hz.   Therefore,  any  data  recorded  at 
frequencies  greater  that  25  Hz  are  due  to  extraneous  noise 

« 

and  do  not  represent  accelerations  caused  by  the  earthquake. 

(13) 
Also  it  has  been  found      that  present  digitization 

methods  introduce  extremely  low  frequency  (long  period) 
random  and  systematic  errors.   Double  integration  of  accelera- 
tion curves  tends  to  magnify  small  errors  and  yield  large, 
unrealistic  displacement  amplitudes.   There  errors  are  insig- 
nificant up  to  periods  of  about  16  seconds,  but  for  longer 
periods,  the  errors  become  quite  serious  and  distort  the 
actual  resulting  ground  displacement.   The  lower  limit  of 
accurately  retrieved  data  (by  the  methods  described  in 
reference  13)  is  about  0.07  Hz. 

Any  resulting  data  outside  the  range  of  25  Hz  and  0,07 
Hz  is  considered  to  be  contaminated  with  erroneous  noise  and 
should  be  filtered  out  of  the  input  data. 
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(14) 
For  low-pass  filtering,  we  use  an  Ormsby      numerical 

filter  to  eliminate  higher  frequencies  and  "pass"  data  which 

contain  frequencies  below  a  certain  rolloff  frequency  (See 

Figure  B-l) .   The  transfer  function  of  filter  weights  is  unity 

for  all  data  corresponding  to  a  frequency  between  zero  and  w 

and  attenuates  rapidly  to  zero  for  data  corresponding  to  a 

higher  frequency.   (The  mathematical  proof  of  the  low^pass 

filter  scheme  is  detailed  in  Appendix  B.)   This  allows  low 

frequency  data  (below  go  )  to  pass  unaltered  and  reduces  high 

frequency  data  to  zero. 

To  filter  out  long  period  components  from  the  input 
accelerogram,  the  data  is  first  smoothed  by  a  running  mean 
filter  of  length  0.36  seconds.      This  removes  high  frequency 
(short  period)  components  and  leaves  behind  components  in  the 
data  which  have  a  lower  frequency. 

The  remaining  data  is  further  relieved  of  higher 
frequencies  by  filtering  with  the  Ormsby  low-pass  digital 
filter.   Briefly  stated,  the  Ormsby  low-pass  filter  scheme 
works  as  follows:   the  time  varying  input  data  A(t)  (acceler- 
ation as  a  function  of  time)  is  multiplied  by  certain  weights 
(real  numbers)  such  that  their  product  yields  output  data 
containing  only  low  frequency  components  of  the  data.   In  a 
sense,  this  process  "filters  out"  unwanted  higher  frequencies. 
The  problem  is  to  specify  a  weighting  function  h(t)  to  achieve 
this  goal.   The  filtered  input  function  can  be  represented  by: 


F(A(t))  =    E.  h.  A   .   t  *  0,±1,±2 

x   t-x, 


where  the  h.'s  are  the  filter  weights.   If  the  input  time 
series  is  represented  by  A(t)=e    ,  then  the  output  filtered 
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series  will  be  H(oo)e    ,  where  H(w)  is  the  transfer  function 
of  the  filter.   From  the  above  equation  it  follows  that  the 
transfer  function  of  the  filter  F  is 

9 

H(oo)  =  h.  e 


The  frequency  transfer  function  H(u))  is  specified  to  be  unity 
in  a  frequency  band  where  frequencies  are  allowed  to  pass  un- 
altered and  zero  outside  this  frequency  band.   The  weights 
associated  with  this  desired  transfer  function  are  determined 
by: 


>.  =  —  J       e    HCco)  du> 


Evaluating  the  above  expression  for  the  filter  weights  (See 
Appendix  B)  and  specifying  a  straight  line  attenuation  beyond 
the  desired  frequency  (w  ) ,  yields  the  formula 


,   _  cos  2Trn\c  -  cos  27TnXt      n  =  0,±1,  ...,N 

n       2X  (TTn)2  x  =  A  -  X 

r  t    c    r 


where  A  and  A  are  normalized  frequencies  with  respect  to 
c      r  n 

the  frequency  of  the  equally  spaced  time  data.  These  weights 
are  calculated  in  subroutine  ORMSBY  (loop  #17)  and  applied  to 
the  equally  spaced  input  data  (AENTER) . 
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The  resulting  output  data  is.  the  long  period  component 
which  remains  after  low-pass-  filtering.   This  long  period 
component  (caused  by  errors  in  recording  and  digitizing)  is 
deducted  from  the  original  accelerogram  thus  "filtering  out" 
the  undesirable  low  frequencies. 
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V.   PHASE2  SUBROUTINE  -  INTEGRATION 

1 .  Introduction 

Subroutine  PHASE2  is  a  computer  program  that  filters 
and  integrates  digitized  accelerogram  data  to  provide  a  final 
time  history  of  corrected  acceleration,  velocity,  and  dis- 
placement.  The  processing  of  accelerogram  data  is  similar  to 
that  adopted  by  the  California  Institute  of  Technology, 
The  input  data  is  in  the  form  of  coordinate  values  representing 
baseline  corrected  digitized  time  and  acceleration  data  of  an 
earthquake  record.   PHASE2  processes  this  data  by  filtering  out 
frequencies  unrelated  to  the  actual  earthquake  and  integrating 
(using  the  Trapezoidal  Rule)  to  obtain  the  corresponding 
velocity  and  displacement.   The  output  is  in  the  form  of  a 
listing  of  the  above  quantities  and  a  plotted  graph,  if 
desired. 

The  program  is  written  in  Fortran  IV  and  has  a 
capacity  of  up  to  54.95  seconds  of  record  and  5500  interpolated 
points.   This  is  ordinarily  large  enough  to  accommodate  most 
accelerograms . 

This  portion  of  the  report  is  intended  to  inform  the 
reader  of  the  purpose  of  PHASE 2  and  how  the  program  carries 
out  the  data  processing.   Justification  of  the  various  func- 
tions are  contained  in  other  portions  of  this  report  and  in 
the  noted  references. 

2.  Purpose 

The  primary  function  of  the  PHASE 2  program  is  to  filter 
and  integrate  accelerogram  data.   Filtering  is  necessary  to 
remove  various  types  of  errors  that  result  in  the  process  of 
obtaining  digitized  data  from  an  accelerogram  trace. 

The  second  primary  function  of  PHASE2  is  to  integrate 
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the  corrected  acceleration  values.   This  process  produces,  ground 
velocity  and  displacement  as  a  function  of  time.   These  quanti- 
ties can  then  be  used  in  the  design  spectra  for  determining 
appropriate  stresses  of  a  structure  during  a  similar  eqrthquake. 

How  the  PHASE2  Subroutine  Works 

PHASE2  basically  consists  of  seventeen  major  steps 
which  are  as  follows ; 

1.  Read  the  title  and  main  control  information. 

2.  Read  the  baseline  corrected  accelerogram  data, 
count  the  number  of  digitized  points,  and  write  on 
the  output  file. 

3.  Scale  the  data  and  check  the  time  values  for 
continuity. 

4.  Interpolate  the  data  to  0.01  seconds.. 

5.  Low-pass  filter  the  data  to  remove  undesired  high 
frequencies. 

6.  Remove  alternate  data  points. 

7.  Correct  for  instrument  response  to  obtain  absolute 
ground  acceleration. 

8.  Leastsquare  the  acceleration  values  and  save. 

9.  Apply  a  running  mean  filter  (Holoway)  to  smooth 
the  data. 

10.  High-pass  filter  the  decimated  data  from  Step  9  to 
eliminate  unwanted  low  frequencies  and  deduct  from 
acceleration  saved  in  Step  8. 

11.  Integrate  the  new  acceleration  to  obtain  velocity; 
leastsquare  the  velocity  to  obtain  a  correction 
term  and  deduct  the  correction  term  from  the 
acceleration. 

12.  High-pass  filter  the  velocity. 

13.  Integrate  the  new  velocity  to  obtain  the 
displacement . 

14.  High-pass  filter  the  displacement. 
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15.  Correct  the  acceleration  values  for  new  changes 
to  the  velocity. 

16.  List  final  acceleration,  velocity  and  displacement 
time  histories. 

17.  Plot  final  acceleration,  velocity  and  displacement 
time  histories. 

Section  1    (See  flowchart,  Figure  39,  at  end  of  this  section.) 

The  first  section  of  PHASE2  reads  the  title  of  the 
baseline  corrected  time-acceleration  data  and  the  main  control 
data.   The  title  is  kept  in  memory  to  be  output  at  various 
times  in  the  program.   The  main  control  data  gives  the  program 
necessary  information  for  applying  an  instrument  correction, 
scaling  the  input  data  to  units  of  seconds  and  gravity,  and 
plotting  control. 

Section  2 

This  section  reads  the  input  data  in  Subroutine  REDATA 
and  writes  it  out  so  the  user  can  check  the  listing  to  see  that 
it  agrees  with  the  intended  input.   If  an  error  exists  at  this 
point,  all  subsequent  filtering  and  integration  will  be  invalid. 
REDATA  also  checks  the  times  to  assure  that  all  time  values  are 
increasing  (or  equal)  and  that  the  maximum  difference  between 
consecutive  times  does  not  exceed  1/4  of  a  second.   This  is 
included  because  data  points  further  apart  than  1/4  second  are 
either  inadvertantly  omitted  or  such  data  produces  erroneous 
output.   If  the  data  is  further  apart  than  1/4  second,  the 
information  is  truncated  after  this  point  and  the  program 
continues  processing  with  the  truncated  data. 

Section  3 

The  computations  of  this  section  are  performed  in 
the  subroutine  DATALT  (for  "data  alter").   Here  the  time 
values  are  scaled  to  units  of  seconds  and  the  acceleration 
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values  are  scaled  to  units  of  cm/ sec  .   If  the  first  input 
time  is  not  zero,  this  function  is  accomplished  by  deducting 
the  initial  time  value  from  all  subsequent  times.,  thus  relating 
the  beginning  of  the  earthquake  to  a  zero  time  origin. 

Section  4 

In  this  section,  the  acceleration  values  are  inter- 
polated to  0.01  seconds  apart.   This  operation  is  carried  out 
in  subroutine  EQLSPC  (for  "equal  spacing") .   EQLSPC  utilizes 
a  linear  interpolation  scheme  of  the  form; 

ACCEL. ,_  n.      =     ACCEL  +  (1IME.,„  _.  -  TIME.)   X 
1+0 . 01  i+O . 01       i 

(ACCEL.,.  -  ACCEL.)  /  (TIME.,.  -  TIME  J 
l+l        l         l+l       1 

where  i  =  1,2,  T  representing  equally  spaced  time  values. 

Section  5 

At  this  point,  the  data  is  low-pass  filtered ,  i.e,, 
all  frequencies  greater  that  2.5  Hz  are  eliminated.   The  sub- 
routine 0RMSB.Y  (after  Joseph  Ormsby  who  first  introduced  the 
filter)  does  all  the  low-pass  filtering  throughout  PHASE2. 
Details  of  this  filtering  scheme  are  given  in  Appendix  B. 

Section  7 

If  values  are  given  for  making  an  instrument  correc- 
tion because  of  damping  in  the  recording  system,  the  correc- 
tion is  carried  out  according  to  the  formula: 

2 
x  +  2oo6x  +  u)x  =  -a(t) 
o  o     o 

where:   x    =   the  second  derivative  of  acceleration  and  is 
computed  in  the  program  numerically;  i.e., 

S  -  (X..J  -  2x.  +  x.+1)/  At2 
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x   =   the  first  derivative  of  acceleration  and  is 
computed  numerically;  i.e., 

x  =  (x.,.  -  x.'  .)/2At 
l+l    l-l 

x   =   the  acceleration  (this  term  actually  repre- 
sents displacement  of  the  transducer  mirror 
which  is  a  measure  of  acceleration) .  See 
Figure  2-b . 

w   =   natural  frequency  of  the  accelerometer  trans- 
ducer computed  by, 

w  =  27T/T  (where  T  =  natural  period  of 
o 

transducer) 

6   =   percent  of  critical  damping  of  seismometer 

a(t)   =   absolute  ground  acceleration. 

Section  8 

This  portion  of  PHASE2  is  accomplished  by  subroutine 
LESTSQ  (Leastsquare) .  The  function  of  leastsquaring  is  to 
place  a  straight  line  through  coordinate  data  which  best  repre- 
sents a  function  of  all  the  values.  (The  mathematical  theory 
of  leastsquaring  is  detailed  in  Appendix  A) .  In  subroutine 
LESTSQ,  the  acceleration  values  are  leastsquare  fitted  to  a 
new  baseline  and  these  values  are  placed  in  a  separate  array 
to  be  called  upon  later  in  the  program. 

Section  9 


Subroutine  HOLWAY  smoothes  the  acceleration  values  by 
utilizing  a  running  mean  filter.   This  is  done  by  replacing 
the  value  of  a  point  x.  with  the  average  of  itself  and  nine 
adjacent  points  on  each  side  of  x. 
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Section  10 

High-pass  filtering  is  accomplished  by  first 
decimating  the  data  (i.e.,  using  every  10th  point)  to  accel- 
eration values  0.2  seconds  apart.   The  decimated  data  is  then 
low-pass  filtered  to  isolate  the  low  frequencies,  interpolated 
back  to  0.02  second  time  intervals  and  deducted  from  the 
acceleration  values  saved  in  Section  8.   By  deducting  low 
frequency  data  (not  representing  earthquake  motion)  from 
initial  data,  high-pass  filtering  is  thus  conveniently  and 
simply  carried  out  by  utilizing  only  the  low-pass  filter. 

Section  11 


In  this  portion  of  PHASE2,  the  new  acceleration  values 
are  integrated  to  obtain  velocity,  the  velocity  is  least- 
squared  and  the  leastsquare  correction  term  ("B"  in  sub- 
routine LESTSQ)  is  subtracted  from  the  acceleration  values  to 
correct  the  acceleration  for  integration  errors.   This  pro- 
cess is  performed  in  the  same  LESTSQ  subroutine  by  setting  the 
parameter  "NPASS"  to  2,  thus  bypassing  the  leastsquaring 
operation  until  the  acceleration  has  been  integrated.   Then 
the  leastsquaring  operation  is  performed  to  obtain  the  correc- 
tion term. 

Section  12 

Here  the  velocity  is  high-pass  filtered  to  remove  the 
erroneous  lower  frequencies  of  velocity.   This  result  is  at- 
tained similar  to  Section  10  except  that  the  velocity  (instead 
of  acceleration)  is  first  low-pass  filtered  and  then  deducted 
from  the  previous  velocity. 

Section  13 


In  this  section  of  PHASE2,  the  new  velocity  is  inte- 
grated to  obtain  the  corresponding  displacement. 
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Section  14 

As  in  Section  12.  the  displacement  is  high-pass 
filtered  to  eliminate  erroneous  low  frequencies. 

Section  15 

The  error  introduced  by  integration  (of  velocity  in 
Section  11)  is  subtracted  from  the  acceleration  in  subroutine 
INTERP.   Although  subroutine  INTERP  is  called  later  in  the 
high-pass  filtering  operation,  the  error  compensation  is 
applied  by  means  of  the  parameter  "NPASS",   When  NPASS=1,  the 
acceleration  is  corrected.   In  the  second  call  to  INTERP,  there 
is  no  need  to  further  correction  acceleration,  NPASS  is  set  to 
0,  and  the  acceleration  correction  procedure  is  bypassed. 

Section  16 


This  portion  of  PHASE2  lists  the  corrected  time- 
acceleration  values,  time-velocity  values,  and  time-displace- 
ment values.   In  each  case,  the  values  are  given  at  intervals 
of  0.02  seconds.   The  listed  arrays  are  output  as  follows: 
The  time  coordinates  are  given  first  and  then  the  corresponding 
acceleration,  velocity  and  displacement  following  immediately 
after. 

Section  17 

The  final  operation  of  the  PHASE2  subroutine  consists 
of  plotting  a  coordinate  graph  of  the  final  quantities  of  ac- 
celeration, velocity,  and  displacement.   This  is  accomplished 
by  subroutine  PLTDAT  (Plot  data)  and  several  Calcomp  library 
subroutines.   The  plotted  output  size  is  controlled  by  the  first 
control  card.   The  three  graphs  plotted  in  this  area  repre- 
sent the  data  listed  in  Section  16.   In  addition,  the  low-pass 
filter  weights  can  be  plotted. 

A  flow  chart  of  the  PHASE2  subroutine  is  shown  in 
Figure  39 . 
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VI.   INTEGRATION  -  MATHEMATICAL  FUNCTIONS 

1 .  Introduction 

How  valid  is  the  time-displacement  curve  as  a  result 
of  the  integration  procedures  of  PHASE 2?   One  way  to  study 
this  is  to  input  digitized  time-acceleration  data  for  mathe- 
matical functions  with  a  known  time-displacement  history  and 
compare  the  known  history  with  the  results  of  PHASE2. 

2.  Constant  Acceleration  Function 

Figure  40-a  shows  a  constant  time-acceleration  curve, 
extending  from  zero  to  20  seconds,  at  a  constant  acceleration 
rate  of  2  cm/sec  .   It  was  digitized  every  1/15  second, 


Accel  , 
cm/sec 


Accel  , 
cm/sec 


2  cm/sec. ^ 


(a) 


zero  acceleration 


(b) 


5  10  15 

Time  in  Seconds 


20 


FIGURE  40   PROGRAM  HISTORY  -  CONSTANT  TIME-ACCELERATION 
CURVE  -  CAL  TECH  VERSION 
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resulting  in  3Q1  points,  and  processed  by  PHASE2.   Write 
statements  were  inserted  at  various  stages  of  the  program  so 
that  the  authors  could  follow  the  changes  in  the  data. 
Follow  the  flow  path  in  the  program  via  Figure  39. 

SCALET  was  given  a  value  of  1,  and  SCALEA  was  given 

a  value  of  1/G.   Therefore,  through  the  REDATA  and  DATALT 

subroutines  the  data  was  interpolated  at  every  Q.01  seconds 

2 
resulting  in  2001  points  of  constant  value  at  1.999  cm/ sec  . 

(Round  off  error  truncated  the  results  from  2.000  to  1.999 

2 
cm/sec  .)   Since  the  data  originated  from  a  mathematical 

function,  ISHORT  was  given  a  value  of  1  to  bypass  the  instru- 
ment correction  statements,  there  being  no  damping  to  consider. 

Alternate  data  points  were  then  eliminated  in  PHASE2, 

2 
resulting  in  1001  points  of  constant  value  at  1.999  cm/sec  . 

The  maximum  time  was  still  20  seconds. 

The  program  next  called  the  LESTSQ  subroutine  to 

leastsquare  the  data.   The  leastsquare  correction  became  a 

2 
horizontal  straight  line  at  a  value  of  1.999  cm/sec  .   The 

correction  line  serves  the  function  of  a  new  baseline  for 
the  data.   Differences  between  the  acceleration  value  of  the 
baseline  and  the  acceleration  input  data  to  LESTSQ  now  became 
the  new  data,  which  in  this  case  resulted  in  a  zero  value  of 
acceleration  for  the  entire  record,  as  shown  in  Figure  40-b. 
Thereafter,  no  changes  in  acceleration  occurred  throughout 
the  remainder  of  the  program.   Also  the  resulting  velocity  and 
displacement  curves  became  zero  throughout  the  record.   Compare 
the  results  with  the  known  integration  for  velocity  and  dis- 
placement by  the  mathematical  procedures  of  calculus,  Fig- 
ure 41.   Obviously  there  is  an  incompatibility  between  real- 
istic results  and  the  computer  program  results. 
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FIGURE  41  INTEGRATION  OF  CONSTANT  TIME-ACCELERATION 
CURVE  -  CALCULUS  PROCEDURE 


We  must  be  careful  about  the  conclusions  we  draw 
from  this  first  example.   A  constant  acceleration  curve  is 
not  an  earthquake  type  of  curve,  since  the  final  velocity 
never  returns  to  zero . 

The  leastsquaring  procedure,  intended  to  recognize 
that  initial  and  final  velocities  should  be  zero  with  earth- 
quake data,  fit  the  best  average  straight  line  to  the  input 
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data  so  that  the  s.um  of  squares  of  the  deviations  from  the 
new  baseline  to  the  curve  are  minimized.   Even  in  this  case 
had  a  horizontal  baseline  been  placed  so  that  the  area  under 
the  acceleration  curve  was:  zero,  the  same  computer  results 
would  have  been  obtained.   Therefore,  one  conclusion  we  can 
draw  from  the  above  results  is  that  the  program  cannot  correct- 
ly operate  on  data  unless  the  initial  and  final  velocities  are 
zero. 

Sawtooth  Acceleration  Curve 

Let  us  next  consider  a  sawtooth  acceleration  curve, 
Figure  42,  whose  inital  and  final  velocities  do  become  zero 
by  calculus  integration.   The  time-acceleration  curve  was 
digitized  at  1/15  second  intervals,  and  processed  through 
PHASE2.   SCALET  =  1,  SCALEA  =  1/G  and- ISHORT  =  1.   Therefore, 
the  curve  remained  unchanged  through  the  REDATA  and  DATALT 
subroutine.   The  data  was  interpolated  in  EQLSPC  to  0.01 
seconds,  resulting  in  2001  points  and  later  cut  to  1001  points 
in  PHASE2  as  every  alternate  point  was  discarded. 

In  the  LESTSQ  subroutine  the  area  under  the  curve 
was  calculated  as  zero  (correct)  and  the  displacement  as 
249.824  cm  (round  off  from  250  cm).   A  =  3.7474,  B  =  -.3747. 

Figure  43  shows  the  changes  in  data  at  various  stages 
in  the  program.   Now  the  new  baseline  became  a  sloping  straight 
line  at  a  value  of  3.7474  and  a  negative  slope  of  -.3747. 
When  the  acceleration  data  is  adjusted  to  the  new  baseline,  we 
observe  a  startling  change  in  the  data  and  can  draw  an  immedi- 
ate conclusion:  Even  if  the  initial  and  final  velocities 
become  zero,    the   leastsquaring  method  will  distort  the  original 
data.      In  some  cases  such  as  an  earthquake  record,  with  many 
cycles  of  alternate  signs  for  the  acceleration,  the  distortion 
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might  be  slight;  however,  in  this  case  the  distortion  com- 
pletely changes  the  acceleration  data  as  shown  in  Figure  43 -c . 

For  completeness  of  information  on  what  happens  to 
the  data  in  the  Cal  Tech  program,  we  shall  discuss  the  results 
of  the  program  further;  although  changes  appear  to  be  in  order. 
These  changes  will  be  considered  later. 

The  leastsquared  acceleration  data  is  next  integrated 
to  give  a  velocity  curve  of  the  type  shown  in  Figure  43 -c . 
Compare  with  Figure  42 -b.   The  HOLWAY  subroutine  is  next 
called  to  smooth  out  the  high  frequencies  in  the  accelera- 
tion.  A  small  change  in  the  acceleration  data  occurs,  as 
shown  in  Figure  43-d,  particularly  near  the  peaks  and  ends 
of  the  curve.   In  the  filtering  method,  (the  Holoway  method, 
or  equally  weighted  running  mean  filter) ,  each  data  point  is 
replaced  by  the  average  value  of  itself  and  nine  points  on 
either  side  of  the  point  in  question.   At  the  ends  of  the 
curve  the  data  is  extended  as  an  even  function  outside  of  the 
time  interval  zero  to  Time  of  Last(T)  as  follows: 

a(-i)  =  a(x)  ;     T<T<0 

a(T  +  t)  =  a(T  -  t);  T<t<2T 

( 1  (->"> 
According  to  the  Cal  Tech  report     this  refinement 

at  the  ends  of  the  acceleration  curve  was  supposed  to  eliminate 

small  errors  in  the  velocity  and  displacement  curves  near  the 

beginning  and  end  of  a  record. 

Next  the  Holoway  filtered  data  is  again  filtered  to 
eliminate  low  frequencies  (long  periods)  using  a  travelling 


*   The  program  which  duplicates  the  flowchart  of  reference  10 
will  hereafter  be  referred  to  as  the  Cal  Tech  program. 
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Ormsby  Filter.  To  reduce  the  computer  costs  the  Holoway  data 
is  first  decimated  to  reduce  the  number  of  data  points.   Now 
each  Ormsby  filter  weight  is  identified  with  (2n+l)  correspond- 
ing decimated  acceleration  data  points,  where  n  is  the  number 
of  weights  in  the  filtering  window  to  the  right  or  left  of 
the  data  point  being  replaced.   Each  data  point  is  then 
multiplied  by  the  corresponding  Ormsby  filter  weight  and  the 
center  acceleration  point  in  the  series  is  replaced  by  the 
sum  of  the  products.   Naturally  the  sum  of  the  individual  filter 
weights  must  be  one;  otherwise,  the  area  under  the  filtered 
acceleration  curve  would  be  different  than  the  area  under  the 
curve  being  filtered.   Once  again  the  acceleration  curve  is 
extended  as  an  even  function  outside  of  its  original  end  points. 
Furthermore,  n  filter  weights  cannot  be  greater  than  the  number 
of  points  in  the  decimated  curve  before  extension.   Figure 
43-e  shows  the  filtered  acceleration  data,  and  Figure  43 -f 
shows  the  resulting  acceleration  curve  after  the  filtered 
data  has  been  subtracted.   The  integrated  velocity  curve 
using  the  new  acceleration  is  also  shown. 

When  the  velocity  curve  is  integrated,  small  errors 
are  reported  to  occur  in  the  ground  displacement.      There- 
fore, the  "standard"  baseline  correction  procedure  consists 
of  high-pass  filtering  the  ground  velocity  and  displacement 
curves,  with  the  velocity  curve  extended  as  an  even  function  out- 
side the  original  end  times  before  filtering.   Prior  to  fil- 
tering the  velocity  curve  is  leastsquared ,  Figure  43 -g.   The 
Ormsby  filtered  velocity  is  shown  in  Figure  43-h.   Finally, 
the  velocity  curve  is  integrated  to  give  the  displacement 
curve,  which  is  also  Ormsby  filtered  to  remove  long  periods; 
however,  in  this  curve  the  displacement  curve  is  extended  as  a 
zero  function  outside  of  its  original  time  span. 
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Figure  43-i  shows  the  final  acceleration,  velocity,  and 
displacement  curves.   None  bear  any  resemblance  to  the  calcu- 
lus integrated  set,  Figure  42.  We,  therefore,  now  consider 
changes  to  the  Cal.  Tech.  program  to  improve  the  situation. 

The  first  change  is  to  replace  the  leastsquaring 
procedure  by  the  authors'  baseline  correction  method  (Sub- 
routine HORIZ) .   In  HORIZ  a  horizontal  baseline  is  chosen  such 
that  the  area  under  the  acceleration  curve  is  adjusted  to  zero. 
With  this  procedure  we  still  maintain  zero  initial  and  final 
velocity,  but  do  not  materially  disturb  the  shape  of  the 
original  input  curve.   Figure  44  shows  the  data  changes  in  the 
various  steps  of  the  revised  program.  To  produce  these  changes, 
one  merely  enters  a  value  of  1  for  NEWWAY  on  the  third  control 
data  card  of  PHASE2.  Figure  44-a  shows  the  input  acceleration 
data,  while  Figure  44-b  shows  the  integrated  velocity.  Already 
we  see  an  Improvement  as  the  velocity  curve  is  almost  the  same 
as  that  of  Figure  42. 

Figure  44-c  shows  the  Holoway  filtered  acceleration 
data  -  little  change.   But,  note  the  remarkable  change  during 
the  Ormsby  filtering,  Figure  44-d.   This  time  the  Ormsby  filter 
severely  distorts  the  acceleration  data,  Figure  44-d.  When  this 
new  data  is  integrated  to  obtain  the  velocity  curve,  no  resem- 
blance to  the  velocity  curve  of  Figure  42  is  noted.   Further 
changes  to  the  data  by  the  revised  program  still  results  in  a 
meaningless  displacement  curve  as  compared  to  the  calculus 
results  (Figure  42) . 

To  ascertain  if  the  elimination  of  the  Ormsby  filter  for 
velocity  and  displacement  would  result  in  better  correlation 
between  the  computer  integration  and  the  calculus  integration, 
N2WAY  Was  given  a  value  of  1  in  the  fourth  control  card  of 
PHASE2,  and  the  data  plotted  through  the  various  steps  of  the 
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numerical  integration,  Figure  45.   Sure  enough,  the 
displacement  data  is  now  beginning  to  look  more  like  the 
corresponding  data  of  Figure  42;, but  of  a  much  lower  amplitude. 
The  problem  lies  with  the  Ormsby  filter  on  the  acceleration. 

We  have  now  reduced  the  computer  program  to  a  much  earlier 

C9) 
version  by  the  authors  of  the  Cal.  Tech-  program     except 

for  two  changes : 

A.  Reference  9  considered  the  acceleration 
data  to  be  zero  outside  of  the  original 
time  domain  for  both  the  Holoway  and 
Ormsby  filtering,  and 

B.  Reference  9  used  the  leastsquaring  pro- 
cedure for  adjusting  the  acceleration 
baseline  instead  of  the  procedure  now 
used  by  subroutine  HORIZ . 

It  is  interesting  to  note  that  if  the  Holoway  and 
Ormsby  filters  were  eliminated  for  the  acceleration  curve,  the 
Cal.  Tech.  version  in  reference  9  would  become  similar  to  the 
Boyce  computer  program.     Minor  differences  exist  in  the  manner 
of  leastsquaring:   Boyce  (New  Zealand)  uses  a  parabolic  base- 
line correction  on  velocity,  while  Trifunac  (Cal.  Tech.)  uses 
a  straight  line  correction  on  acceleration.   Details  of  least- 
squaring  for  both  programs  are  described  in  Appendix  A. 

What  would  happen  if  the  Holoway  and  Ormsby  Filters 
were  eliminated  on  the  acceleration  curve? .   Would  we  get  the 
identical  curves  to  Figure  42?   To  accomplish  this  a  new 
version  N3WAY  was  given  a  value  of  1  on  the  third  input  control 
card  of  PHASE2.   The  results  are  shown  in  Figure  46.   They  are 
identical  to  Figure  42.   We  have  now  returned  to  a  computer 

program  similar  to  Housner's  original  version,  except  for  the 

( 18) 
manner  of  leastsquaring  of  the  acceleration  data. 
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4.  Cosine  Curve 

In  preparation  for  an  experiment  to  be  described  in 
the  next  chapter  approximating  a  cosine  variation,  a  seven- 
cycle  cosine  curve  was  integrated  using  N3WAY  =  1.   The 
results  are  shown  in  Figure  47.   A  careful  scrutiny  of  the 
computer  printout  showed  the  problem  to  occur  with  the  last 
data  point.   The  curve  goes  to  5.83  seconds  (approximately 
the  time  duration  of  the  experiment) .   When  the  original 
data  is  interpolated  to  0.01  seconds  everything  goes  well, 
but  when  every  other  point  is  discarded  (data  now  at  0.02 
seconds)  the  5.83  point  is  lost.   The  baseline  adjustment  is 
in  error  by  a  small  amount,  but  enough  to  give  a  larger  error 
in  the  displacement  record.   Accordingly,  the  baseline  ad- 
justment was  made  while  the  data  was  interpolated  at  0.01 
seconds;  then  every  other  point  was  discarded  (N5WAY  =  1). 
The  result  is  excellent  as  shown  in  Figure  48.   Figures  47  and 
48  illustrate  the  importance  of  careful  attention  to  end  points 
in  an  array.   Only  one  point  made  the  difference;  put  Figures 
47  and  48  together  over  a  light  table  and  no  apparent  differ- 
ence is  discernable  in  the  acceleration  and  velocity  curves. 
Figure  49  shows  the  results  of  using  the  basic  Cal.  Tech. 
program  for  the  same  cosine  curve. 

5.  Justification  of  Leas tsquari rig  and  Filtering 

To  deal  with  pure  mathematical  functions  ignores  the 
true  nature  of  earthquake  records;  they  don't  occur  as  precise 
mathematical  functions,  they  are  more  random  oriented.  A  true 
horizontal  acceleration  such  as  in  Figure  40  will  not  record 
as  a  horizontal  acceleration.   In  the  first  place,  there  is 


N4WAY  =  1  is  a  variation  not  germane  to  this  discussion  and  is 
described  in  Appendix  C,  p.  C-10. 
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start-up  time  to  be  considered  as  an  accelerometer  system  is 
turned  on.   The  horizontal  straight  line  could  be  recorded  as 
a  sloping  curve  (if  not  altogether  straight)  as  the  instrument 
is  warming  up.   The  leastsquaring  method  now  becomes  mandatory 
to  correct  for  the  instrumentation  error  by  adjusting  the 
sloping  recorded  acceleration  curve  to  one  more  resembling  the 
true  time-acceleration  history.   In  the  second  place,  the  time 
delay  at  the  start  of  recording  (see  Figure  1)  means  that  we 
have  lost  the  starting  zero  acceleration  value.   With  the  end 
point  of  the  record  possibly  not  defined  because  of  drift  in 
the  recording  we  have  no  alternative  but  to  turn  to  an  adjust- 
ment method  like  leastsquaring  to  try  to  locate  a  baseline 
that  makes  the  beginning  and  end  velocities  zero;  end  conditions 
we  do  know. 

Cyclic  variations  in  the  recording  due  to  instrument 
drift  or  later  in  PHASE1  due  to  the  digitization  processing 
also  makes  filtering  mandatory. 

In  effect  we  can  say  that  if  the  record  is  perfect, 
the  leastsquaring  and  filtering  schemes  will  distort  the 
record  because  they  are  trying  to  eliminate  something  that 
wasn't  there;  but  if  the  record  does  contain  errors,  then 
these  schemes  hopefully  are  of  a  nature  as  to  mitigate  the 
continuation  of  the  errors  when  the  time-displacement  history 
is  obtained.   We  are  now  back  to  the  Cal.  Tech.  program. 

Previously  we  have  discussed  how  errors  due  to  least- 
squaring  and  filtering  are  introduced  in  short  records.   It  will 
be  profitable  to  further  examine  their  production  in  long 
records,  say  thirty  seconds;  and  if  possible  to  determine  a 
change  in  the  program  to  eliminate  them.   But  first  we  should 
also  examine  the  nature  of  the  integration  process. 
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6.   Nature  of  Integration 

Consider  an  acceleration  sine  curve  of  the  form: 

A  =  sincTTt 
By  integration  the  velocity  becomes 

v  =  —  sincTTt  +  C- 
c  1 

If  the  velocity  is  zero  at  time  zero,  C.  =  0.   The  displacement 
becomes : 

1 

d  =  2  2  sincTTt  +  C„ 

C  7T 

If  the  displacement  is  zero  at  time  zero,  C~  =  0.   Notice  the 
following  conditions : 

2  2 

If  c  7T    <  1.0       The  amplitude  of  displacement  is 

greater  than  the  amplitude  of 
acceleration. 

=1.0       The  amplitude  of  displacement 

equals  the  amplitude  of  acceler- 
ation. 

>  1.0       The  amplitude  of  displacement  is 
less  than  the  amplitude  of  accel- 
eration. 

To  put  a  scale  on  thse  effects  let  us  consider  the 

frequency  range  between  .1  Hz  and  12  Hz.    If  we  take  an 

average  frequency,  say  5  Hz  at  a  peak  acceleration  of  1  G, 

then  the  peak  displacement  will  be  — r— -~   980.665  =  .994  cm  or 

10  TT 

about  ..  nnn  the  magnitude  of  the  peak  acceleration.   Now  let  the 

5  Hz  extend  over  a  thirty  second  record,  where  a  leastsquaring 


*  Reference  (19)  states  that  "a  strong  motion  accelerometer  should 
record  accurately  over  a  period  range  of  0.1  to  at  least  three 
or  four  seconds  and  maybe  to  ten  seconds." 
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2 
acceleration  end  changes  of  say  1  cm/sec  occurs.   The  peak 

displacement  due  to  that  long  period  change  will  now  be 
1 


,1  .2  2 
(60 }  * 


(1)  =  364.757  cm. 


The  long  period  now  completely  dominates  the  time-displace- 
ment curve  while  the  5  Hz  frequency  is  reduced  to  a  low  level 
noise  curve  superimposed  on  the  lower  frequency.   We  are  now  at 
the  situation  where  the  computer  program  introduces  long  per- 
iod errors  into  a  perfect  record  and  integrates  these  errors 
as  the  final  displacements  -  unless,  of  course,  we  high-pass 
filter  the  displacement  record  above  the  error  frequency  level. 

7.   .625  Hz  Sine  Curve 

Figure  50  shows  the  integrated  acceleration,  velocity, 
and  displacement  curves  by  the  Cal.  Tech.  program  for  an  input 
sine  acceleration  curve  of  period  1.6  seconds  and  peak  ampli- 
tude 4.836  cm/sec  .   Essentially  the  input  data  is  a  .625  Hz 
sine  curve  extending  over  a  time  domain  of  28.8  seconds. 
Thus  there  are  18  full  cycles  to  the  input  data.   To  follow 
the  changes  in  the  data  we  shall  now  show  printer  plots  at 
the  various  stages  of  the  program.   Printer  plots  have  a 
background  grid,  the  computer  paper,  which  makes  it  easier 
to  read  small  changes  in  the  data  than  the  Calcomp  Plotter 
plots,  and  is  much  cheaper  to  produce.   Figure  51-a  shows 
the  plot  of  about  1/2  the  input  data  created  at  0.01  seconds. 
The  data  has  an  even  number  of  spaces  per  1/4  cycle,  hence 
there  is  no  problem  with  peaks  remaining  unchanged  when  the 
data  is  reduced  to  0.02  second  intervals.   Figure  51-b  shows 
the  full  record  at  0.01  second  intervals.   After  leastsquaring 
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the  new  baseline  equation  is  A  =  .2565  -  0.0178t,  indicating 
an  immediate  change  in  the  record,  albeit  small.   Figure  51-c 
shows  the  leastsquared  acceleration.   Figure  51-d  shows  the 
acceleration  after  Holoway  filtering.   The  changes  are  evi- 
dent.  The  acceleration  curve  tends  to  slope  upward  to  the 
right.   Figure  51-e  shows  the  acceleration  after  Ormsby 
filtering.   A  small  cyclic  variation  is  introduced.   Figure 
51-f  shows  the  final  acceleration  after  correction  because 
of  changes  in  the  velocity  due  to  leastsquaring  the  velocity. 
Figure  51-g  illustrates  the  leastsquared  velocity  prior  to 
filtering,  while  Figure  51-h  shows  the  final  velocity  after 
filtering.   These  large  cyclic  variations  in  velocity  lead 
to  tremendous  changes  in  the  integrated  displacement,  Figure 
51-i.   Further  changes  in  the  displacement  due  to  filtering 
at   .067  Hz  do  little  to  correct  the  final  displacement  as 
shown  in  Figure  51-j .   Notice  that  the  long  period  curve  is 
approximately  at  .07  Hz. 

Figure  52  shows  an  improvement  in  the  situation  as 

the  Ormsby  filter  frequency  is  raised  to  0.1  Hz.  (This  is 

accomplished  by  letting  N4WAY  =  7.)   The  displacement  pattern 

is  starting  to  straighten  out.   We  are  starting  to  filter 

above  the  error  band  frequencies .   Figure  53  shows  excellent 

results  as  the  filter  frequency  is  raised  to  0.3  Hz  (N4WAY  = 

8) .   We  expect  the  final  displacement  by  calculus  to  be  a 

sine  curve  with  a  peak  value  of  — ~Y~7   =  *313  cm.   The 

1.25V 
printout  shows  a  peak  value  of  0.331  cm.  except  at  the  last 

cycle  which  has  a  maximum  negative  peak  of  0.372  cm. 

If  our  theory  is  correct,  and  the  filters  are  working 
properly  then  the  displacement  record  should  practically 
vanish  when  the  filter  frequency  is  raised  above  .625  Hz. 
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Figure  54  shows  the  results  of  changing  the  Ormsby  filter  to 
1  Hz  (N4WAY  =  10) .   The  displacement  record  is  wiped  out  as 
predicted.   Only  an  end  noise  remains  skewed  to  the  right  of 
the  record  because  of  the  antisymmetric  arrangement  of  input 
data  about  the  time  centerline. 

8.   Symmetrical  Sawtooth 

To  see  what  happens  when  a  long  period  record  is 
evaluated,  a  symmetrical  sawtooth  acceleration  record  was  pro- 
cessed through  the  Cal.  Tech.  program,  Figure  55.   As  expected 
the  displacement  record  shows  a  symmetrical  long  period.   This 
time  there  is  no  change   in  the  acceleration  data  due  to 
leastsquaring.   The  correction  baseline  has  the  formula  A  = 
0  +  Ot.   Figure  56  shows  the  changes  by  means  of  printer  plots. 
Figure  56-a  shows  the  acceleration  data  prior  to  Holoway  fil- 
tering, and  Figure  56-b  shows  the  data  after  Holoway  filtering, 
Very  little  change  has  occurred.   Figure  56-c  shows  the 
Ormsby  filtered  data  and  Figure  56-d  the  acceleration  after 
subtraction  of  the  filter;   a  tremendous  change  in  the  shape 
of  the  acceleration  curve.   This  shows  why  it  would  have  been 
impractical  to  try  to  change  Figure  43  by  the  simple  expedient 
of  changing  the  filter  frequency.   The  result  would  be  to  com- 
pletely wipe  out  the  entire  record.   Figure  56-e  shows  the 
integrated  velocity  and  Figure  56-f  the  final  velocity. 
Figure  56-g  shows  the  integrated  displacement  and  Figure  56-h 
the  filtered  displacement  with  a  .067  Hz  filter.   This  filter 
frequency  hardly  makes  any  difference  in  the  long  period 
displacement  curve.   Contrast  these  previous  results  with 
the  calculus  integration,  Figure  57. 

Now  lets  see  what  happens  when  the  Ormsby  filter 
frequency  is  changed  to  1  Hz ,  Figure  58.   As  expected  the 
velocity  and  displacement  records  are  completely  wiped  out, 
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FIGURE  57   CALCULUS  INTEGRATION  TO  VELOCITY  AND  DISPLACEMENT 
FROM  SYMMETRICAL  SAWTOOTH  ACCELERATION  CURVE 
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since  these  curves  have  periods  longer  than  10  seconds, 
Figure  56-h.   In  fact,  the  printer  plots  show  identical 
scenes  in  Figures  56-a  through  56-e ;  and  then  the  Ormsby 
filtering  on  velocity  reduces  the  remaining  plots  to  a  low 
noise  level.   This  time,  as  expected,  Figure  58  shows  a  fairly 
symmetrical  noise  curve  about  the  centerline  point  since 
the  input  was  arranged  that  way. 

One  conclusion  we  can  draw  from  this  example  is 
that  when  long  -periods  are  in  the  frequency  range  of  the 
error  frequency  band,   it  may  be  impossible   to  guarantee 
the  accuracy  of  the  integrated  time-displacement  curve. 
Recall  that  the  long  period  errors  of  Figure  50  were  put  into 
the  program  by  the  leastsquare  procedure,   Holoway  and  Ormsby 
filters;  they  were  not  part  of  the  original  record. 

9.   Composition  Input  Data 

To  check  the  accuracy  of  the  leastsquare  procedure 
a  composition  input  curve  was  prepared  by  superimposing  a 
3  Hz  sine  curve  with  a  20  Hz  sine  curve  and  a  random  number 
distribution  together  with  a  1/10  radian/sec  sloping  line. 
Figure  59  shows  the  integrated  results,  and  amply  demonstrates 
the  leastsquaring  procedure  is  doing  its  job.   Figure  60 
used  only  the  same  random  numbers  as  input,  with  a  resultant 
time-displacement  similar  to  Figure  59.   Thereafter,  to  make 
sure  no  such  frequencies  could  occur  in  the  random  number  sys- 
tem, the  acceleration  record  was  first  high-pass  filtered  at 
2  Hz,  Figure  61,  and  then  integrated.   It  is  interesting  to 
note  that  the  shape  of  the  time-displacement  history  is 
similar  for  Figures  59,  60,  and  61 j  verifying  that  the 
the  displacements  are  in  error  and  developed  by  the  original 
program  methodology. 
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VII.   EXPERIMENTATION 

1.  Introduction 

In  this  chapter  it  will  be  demonstrated  that  the  Cal.  Tech. 
program,  with  a  suitable  change  in  the  Ormsby  filter  frequency, 
can  produce  a  time-displacement  curve  that  will  accurately  match 
a  measured  time-displacement  history  on  the  condition  that  the 
displacement  curve  oscillates  about  a  zero  baseline  an4  has  only 
frequencies  higher  than  the  filter  frequency.  This  will  put  a 
restraint  on  the  type  of  earthquake  displacement  records  that  can 
be  predicted,  i.e.,  those  having  no  significant  final  displacement 
from  the  original  position  of  the  earth. 

2.  Free  Swing  Experiment 

Prior  to  a  random  motion  experiment  it  was  decided  to  pro- 
duce a  free  swing  experiment  for  instrument  calibration  purposes. 
Figure  62-a  shows  a  pendulum  device  used  to  generate  accelerations 
A  piezoelectric  accelerometer  was  attached  to  the  pendulum  and 
connected  to  a  Sanborn  recorder  to  create  the  acceleration  trace. 
To  form  the  pendulum  two  vertical  plates  were  attached  to  a  top 
and  bottom  plate  to  form  a  parallelogram.   The  upper  plate  was 
fixed  in  a  horizontal  position.   As  the  pendulum  was  rotated 
along  its  path,  the  bottom  plate  always  remained  in  a  horizontal 
position  regardless  of  the  angle  of  the  pendulum.   A  Model  818 
Piezotron  Acceleromater*.  Figure  62-b,  was  rigidly  attached  to 
the  horizontal  plate  to  sense  accelerations  normal  to  the  plate; 
however,  only  the  vertical  components  of  acceleration  were 
recorded. 


*  Manufactured  by  Kistler  Instruments  Company,  Over lake 
Industrial  Park,  Redmond,  Washington  98052. 
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FIGURE  62-a  PENDULUM  DEVICE  USED  TO  GENERATE  ACCELERATIONS 


FIGURE  62-b  MODEL  818  PIEZOTRON  ACCELEROMETER 
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The  piezotron  accelerometer  contained  a  compression- 
type  piezoelectric  sensing  element,  Figure  63,  which  included 
a  seismic  mass  and  stacked,  parallel-connected  quartz  crystals 
(or  plates) ,  which  were  assembled  under  controlled  preload 
pressure  into  the  preload  sleeve.   The  sensing  element  was 
mechanically  isolated  from  the  housing,  preventing  mounting 
strain  from  causing  either  spurious  signals  or  zero  shift. 
The  mounted  resonant  frequency  was  31.5  KHz,  well  above  the 
range  of  strong  motion  instruments.   The  frequency  response  was 
from  0.8  Hz  to  5000  Hz  (within  ±  6%)  and  had  a  zero  voltage 
deviation  in  the  frequency  range  of  7.5  to  900  Hz  at  +75° 
(see  Figure  64) . 

To  calibrate  the  accelerometer  system,  the  pendulum  was 
dropped  in  a  single  free  swing  and  the  accelerometer  was  caused 
to  pass  between  two  flashlights  and  photoelectric  cells,  as 
shown  in  Figures  62-a  and  65-a.   The  photoelectric  cells  were 
connected  to  a  voltage  amplifier  (see  the  circuit  diagram  of 
Figure  65-b)  which  was  then  connected  to  a  Tectronic  Type  551 
Dual  Beam  Oscillograph  with  Type  53A  plug-in  units  for  voltage 
response.   The  dual  traces  were  then  recorded  on  polaroid  film, 
Figure  66,  showing  blips  when  the  accelerometer  interrupted  the 
flashlight  beam  to  its  corresponding  cell. 

From  mechanics  it  is  known  that  the  radial  component  of 

v2 

acceleration  is  — .   At  the  bottom  swing  of  the  pendulum  the 

radial  acceleration  is  all  that  exists  and  is  directed  upward 
being  normal  to  the  bottom  plate.   From  Figure  66-a  the  follow- 
ing calculations  are  made: 

Sweep  at  0.02  sec/cm  on  the  screen 

Correction  of  1.1  by  timing  with  a  stopwatch  makes 
the  sweep  speed  0.02(1.1)  =  .022  sec/cm. 

Distance  between  blips  =  1.25  cm  on  the  screen. 

Distance  between  photocells  =  10  cm. 
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FIGURE  63-a  BASIC  DIMENSIONS  OF  MODEL  818  PIEZOTRON  ACCELEROMETER 
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FIGURE  63-b   CROSS  SECTION  OF  PIEZOTRON  ACCELEROMETER 
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photocell 


photocell 


FIGURE  65-a  PANEL  VIEW  OF  PHOTOELECTRIC  CELL  DEVICE  TO  MEASURE  THE 
PENDULUM  VELOCITY 


Photocell 

Transistor 

MRD  300 


Amplifier 

Transistor 

3N2904 


+15  v,     +15  v.  h 


10K 


420K 


0.05 

yf 


27K 


10K 


H  To  CRO       To  CRO  h 


Photocell 

Transistor 

MRD  300 


s\p—t- 


Amplif ier 

Transistor 

3N2904 


> 

E 


27K 


420K 


0.05 
lif 


FIGURE  65-b  CIRCUIT  OF  VOLTAGE  AMPLIFIER  FOR  PHOTOCELL  DEVICE 
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(a)   RECORDING  SPEED  AT  0.02  SEC/CM 


(b)   RECORDING  SPEED  AT  0.10  SEC/CM 


FIGURE  66   PHOTOGRAPHS  SHOWING  BLIPS  ON  DUAL  BEAM  TRACES  AS 
PENDULUM  PASSED  IN  FRONT  OF  PHOTOCELLS 
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v  =  (i  25) (    022)  =  363*63  cm/sec. 

With  a  pendulum  radius  of  22.76"  =  57.81  cm. 

v2   363. 632   „9R7  _,    .    , 
a  =  —  =   =-=  Q1 —  =  2287.26  cm/sec/sec. 

For  Figure  66-b  a  =  1689.26  cm/sec/sec.   For  a  sweep 
of  0.05  cm/sec  (trace  not  shown)  a  =  2017.69  cm/sec/sec.   An 
average  value  of  1998.07  cm/sec/sec  could  then  be  used  to 
scale  the  lowest  peak  on  the  acceleration  curve  in  the  free 
swing  experiment;  however,  the  maximum  value  that  can  be 
developed  from  theoretical  mechanics  is  2G  or  1961.33  cm/sec/ 
sec,  so  that  was  used  instead.   This  is  on  the  basis  that  the 
acceleration  at  the  beginning  of  the  swing  is  G.   Figure  67 
shows  four  frames  from  a  film  record  in  a  further  free  swing 
experiment  that  shows  a  free  block  dropped  simultaneously  with 
the  pendulum  keeping  its  relative  position  during  at  least  the 
first  half  of  the  drop  height  and  verifies  that  the  initial 
acceleration  was  close  to  G. 

In  the  free  swing  experiment  the  pendulum  was  initially 
set  into  motion  from  a  horizontal  position  and  allowed  to 
swing  back  and  forth  for  5.58  seconds  through  approximately 
7  cycles.   While  the  pendulum  was  swinging,  the  accelerometer 
was  sensing  vertical  accelerations  which  were  recorded  by  means 
of  a  Sanborn  recorder.   The  results  appeared  on  the  recording 
paper  as  a  sinousoidal-like  curve. 

During  the  free  swing  experiment  the  action  was  recorded 
by  a  movie  camera  at  the  rate  of  48  frames  per  second.   A  grid 
made  of  one-inch  squares  was  placed  in  the  background  so  that 
the  relative  vertical  displacement  of  the  pointer  at  the  bottom 
of  the  horizontal  plate  could  be  retrieved  from  the  film  record. 
A  microfische  film  reader  was  used  to  record  the  relative 
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(a) 


(b) 


FIGURE  67    FOUR  FRAMES  FROM  FREE  SWING  MOTION  PICTURE  RECORD 
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(c) 


(d) 


FIGURE   67    CONTINUED. 
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vertical  position  of  the  pointer  by  reading  each  'frame. 
The  record  of  actual  vertical  displacement  is  shown  in 
Figure  68. 

Meanwhile  the  accelerometer  trace  was  digitized  on 
the  Electrak  machine  and  processed  through  the  PHASE1  pro- 
gram where  a  plot  of  the  acceleration  trace  was  prepared, 
Figure  69.   The  data  was  corrected  to  eliminate  accidental 
digitization  errors,  scaled,  baseline  corrected,  and  then 
punched  on  computer  cards  for  double  integration  in  the 
PHASE2  program.   An  assessment  was  made  of  the  beginning 
and  end  of  the  acceleration  record  and  the  portion  shown  in 
Figure  70  was  first  used  for  integration. 

Figure  71  shows  the  integration  via  the  original 
Cal.  Tech.  program.   With  the  displacement  data  approximat- 
ing at  2  Hz  variation  the  Ormsby  filter  was  next  changed  to 
1  Hz  (N4WAY  =  10)  and  the  free  swing  data  once  again  inte- 
grated, Figure  72.   When  we  compare  the  displacement  results 
to  thosje  of  Figure  73,  we  observe  a  very  good  match,  provided 
the  actual  displacement  record  is  also  filtered  so  that  oscil- 
lations occur  about  a  new  baseline  where   the  initial  and 
final  displacements  are  zero.      In  Figure  73  the  PHASE2  program 
was  used  to  high-pass  filter  the  input  displacement  data  at 
1  Hz  by  letting  N2WAY  =  8  and  N4WAY  =  10.   The  input  displace- 
ment data  was  then  placed  in  the  acceleration  array  for  plotting 
purposes  only  (the  acceleration  axis  is  ignored)  while  the 
filtered  displacement  was  printed  correctly  at  the  bottom  of 
the  figure. 

To  ascertain  if  the  length  of  acceleration  record  used 
might  influence  the  displacement  results  both  end  extensions 
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FIGURE  69    FREE  SWING  ACCELERATION  TRACE  ON  SANBORN  PAPER 
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FIGURE  70   PART  OF  FREE  SWING  ACCELERATION  RECORD  BASELINE 
CORRECTED  VIA  PHASE1 
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of  the  acceleration  record  were  used  in  a  new  integration 
of  the  free  swing  experiment,  Figure  74.  The  results  are 
practically  unchanged  from  Figure  72. 

3.  Random  Motion  Experiment 

The  last  experiment  was  a  random  motion  experiment, 
Figure  75,  in  which  the  pendulum  was  started  from  zero  and 
pulled  by  a  rope  through  displacements  simulating  a  random 
motion.   Since  there  cannot  be  negative  vertical  values  when 
measured  from  the  bottom  of  the  swing  (even  though  the  pen- 
dulum swings  on  opposite  sides  of  the  bottom  position)  it  is 
necessary  to  create  a  new  baseline  such  that  beginning  and 
end  displacements  are  zero.   This  is  accomplished  by  high- 
pass  filtering  the  displacement  data  as  shown  in  Figure  76. 

After  processing  the  acceleration  input  data  in 
PHASE2,  the  results  are  shown  in  Figure  77  for  the  original 
Cal.  Tech.  version;  Figures  78,  79,  80,  and  81  when  the 
Ormsby  filter  is  changed  to  0.1  Hz,  0.3  Hz,  0.5  Hz,  and  1  Hz 
respectively.   The  change  to  1  Hz  most  nearly  matches  the 
integrated  time-displacement  history  to  the  actual  time- 
displacement  history  of  Figure  76. 

4.  Discussion 

From  these  limited  experiments  it  would  be  unwise  to 
declare  1  Hz  as  the  cut-off  frequency  in  the  Ormsby  filter  for 
strong  motion  instruments.   The  piezotron  accelerometer  used 
had  considerable  attenuation  in  the  very  low  frequencies;  and 
since  both  experiments  (Free  Swing  and  Random)  were  done  with 
a  pendulum,  the  fundamental  cyclic  frequency  stayed  practical- 
ly constant  and  affected  only  the  amplitude,  not  the  shape, 
of  the  displacement  record.   These "attenuations  were  corrected 
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for  in  the  scaling  to  match  the  integrated  and  measured 
records.   However,  a  strong  motion  instrument  is  capable 
of  a  constant  sensitivity  from  0.1  to  10  Hz,  as  for 
example  the  U.  S.  C.  &  G.  S.  Model  II  Strong-Motion 
Seismograph    ,  Figure  82.   This  would  probably  mean  that 
the  Ormsby  filter  frequency  should  be  set  at  a  lower  value, 
but  experiments  of  the  same  nature  as  previously  described 
should  be  conducted  using  an  actual  strong  motion  instrument 
(such  an  instrument  was  unavailable  to  the  authors) ,  before 
a  lower  value  can  be  specified.   Further  research  in  this 
area  to  determine  the  upper  range  of  the  error  frequency  band 
will  undoubtedly  be  necessary  for  earthquake-type  records. 
One  way  such  a  record  could  be  obtained,  particularly  in  the 
low  frequency  range,  would  be  to  place  the  strong  motion 
instrument  on  one  end  of  a  waterbed  and  vibrate  the  other  end 
by  hand.   Figure  83  shows  some  acceleration  records  that  were 
so  obtained  in  an  attempt  to  simulate  earthquake  records. 
However,  these  were  obtained  using  the  Piezotron  Accelerometer ; 
what  is  needed  is  the  same  type  of  record  using  a  strong  motion 
instrument.   Coupled  with  a  motion  picture  camera  to  record  the 
true  acceleration  with  a  background  scale,  this  type  of  research 
may  prove  profitable  for  future  investigators. 

5.   Displacement  Meters 

Reference  20  by  Trifunac  and  Lee  describes  several 
examples  of  the  use  of  a  displacement  meter  to  check  on  the 
accuracy  of  the  Cal.  Tech.  integration  program.   Figure  84, 
taken  from  reference  20,  shows  an  excellent  match  in  ground 
displacements  obtained  from  both  acceleration  and  displacement 
transducers.   The  displacement  meters  were  long  period  trans- 
ducers with  T  =  2  to  11  seconds,  recording  in  the  same 
direction  as  the  acceleration  transducers. 
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ACCELERATION  SENSITIVITY 

vs 

FREQUENCY 

U.  S.  C.  &  G.  S.  Model  II 
Strong-Motion  Seismograph 


10 
9 

: ....... 

.. 

.^ 

. 

■~- 

^H 

■I — ■ 1 







— 

— 

-r- 

i 1 



..___. 

■ 

- 

'    1    -1 

S 
7 

-    --I--.-I i    - 

-  i--!-i-i--i 

-1        -H 

1  1 

E4E 

— 

5 

== 

-1 1 

I        ■    i 

...  .! .-!.. 

- 1  — i--l- 

I     i        i     .'.■ 

— 1 — '— +— 

— M-|- 

_  1.  1 . 

fi 

1               1 

1 

,1                  .    |    : 

,.|;         |       ,          |           •,-•-       , 

:--.-.   ;::-::    r:  ^j^lj.^j  ~":  :}:L::|=|=|.L|  f  ^Ei~===  {~==H|'^=S:[  j== 

-—-■!-  ■■■!-.- 

= 

_ir  -. 

...     |     . 

-      |     .  :|.      |-|      '     '- 

.    ....:: : 

i:L;i::i!:-~!™;ir^|---Kl: 

. 

^pl 

- [.'-:     .:.: 



e=:e 

-  -    --^|..--L. 

__^|  i'-i:l_:-i.uj|~fr-.|  r 

4 

....I... 

!.._. 

=:|=|H-= 

-1 

- 1  — 

u 

-=rr= 

._. 

-Q'j- 

3 

,      ... 

::::!.::: 

_..: 

:-:FFF 
--- 1—  -  -- 

! -+— 

.    -L_. 

— 

— r__. 

-^ 

!,.j    .' _1  _.: 

m 

-"1-PFI- 

.  i ! 

; , 

— j ; 1 

...|  .- 

-            ._ 

2 

HI 

E~ 

~|~ 

- 

=iii 

-— i=- 

— ijF. 

— 

5= 

~. 

~ 

:   -It 

-P-|-j- 

•=E 

IT" 

V 

~- 

— -—  t ._.... 

L.Zj.'_"! 

~EE 

E: 

if: 

-Lz 

— >— 

4- 

-K-1 

T"- 

± 

J [ 

"f- "H 

—  i- 
1      '     1 

T^ 

F 

zz 

LUU 

-...—.  i  . ... 

... 

. .  -i ... 

!  - 

—  J....I.-  - 1 

-- 

■■I- 

-  1 ■    !   ■- 

..  | — 

8 

-       ■•  j '      i--|---|  -j- 

-  - 

• ; 

— j...  1  

— 

... 

— 

..j        .__     ,„     .. 

■— 

■    i — 

60  7 

'_".! ,.,_, 

i         | 

=£±fc 

— i — 1 — : 

_ 

':^l4— ' 

— i— 1— 1- 

-_   _ 

•   6 

~S-~.\-l-^.-:    ~|-:::|~:|:  =  :i 

'-^- 

=   =^riSSi[-=:|^jS==rjtHI. 

-.- 

== 

~'= 

i     *    i 

== 

-Ei:->l-i 

:Jr 

c 

^   4 

iiS 

rJJi:;::;|:-E= 

::--. 

I^ipp|t^ 

= 

... 

EEr 

ee|ee 

■                : . 

==-'■ 

. ..  1    . 

—\:£ 

_   . 

3 

— 

—H1 

■■-■ |  —:■;.— -j-:| 

=- 

-  i 

ey===z:  z=i:i=^ 

ipE 

•^ 

........  — ..... 

.  ..j  —  j__, — 

■ ; j 

EEz 

1— 

_.  . 

\-:h=±=-\~=f=4i.~ 

\-^=- 

;— 

EEEE 

— ... 



> 
-<    2 

4~l 

r:: 

-  i— — 

_  -  j . 

= 

"' 

.- 

c 
a 
to 

fn-^20:4:-cPs 

j  ■  ;  ■  I- i — -— 'i — — 1 —  ' 

i 

■^— - -i — 
.      .  .,. 

;         1     1 

1 —   1     — ! ' — 

ijl 

^r 

- 

-1- 

in 

1    1    1   1        ■    i               i 

1 

■'■\l 

i 

9 

in".  iv. i«-.cps| !~v,  i           -     ,—          i     -i   -I —  i  •  i  -!-•  i -     X--I---I        i 

.._  |_| . 

-1- 

7 

-  fn-'  16.8   cp»|— M-                                                                                              — i\Ah 

___!_ 

ra 

.:•:;-:.•:  ;  ;  : ■::.  |         i     .  j  ^._.:.i  :iirj  =;;|^i^^ 

.v|~;5Ef^=^j~H~;r:SS|.=[^ 

■:L:-|=)=Mlir 

::_-r.l_:.j  _-.::|^j     ::.A:zi-.-\:~—.\~.\—       1" 

:-|              ~, 

— :j^=r.|. Urr|ri:t=ri-rj--^-|       ,   ,-^S;  '  "-"  |:-— 1\  :|  \;_^|j=z: 

■  -:j— I ::. 

:r- 

4 

zv--~V:  :.<-::. 

-___.  ^ij-b—l 

■ 1 

1 — 

. .j_-j  ;_!  i ,_Sj  ...  VV,   . 

:•_'= 

H-      -|- 

3 

"T^^^gz 

m=zwm 

tl™U.  OH-i y ;•--; 

-E: 

pqz 

| -  | 1 1--  \  ;-- 

S 

V 

J-73: 

I " 

i 

_--— ;:::-.{ j  rrr:i~-:i— 1~:  :r 

::  | ^^~j^~j -i-zrr'T- 1" irrzrr 

— 

=1= 

-^  - 

-ril   ,         -i — : — 

—  i.Vi;: 

r_zA 

-\  |.-^:|zr[r: 

-- 

2 

nz:|.""~ 

bus- 

j»n 

s.Lon;-ui 

gh-Spring-r 

' H 

,onscanctr 
::l,:;J  ;''• 

— i— 

- 

--! p— 

_4i: 

F^\N=- 

L___ 

\~~ 

r— 

ZZL 

*f!» 

^: 



:    H+rHf 

i           !  ■ ; 
■  I'll 

-r— 1 

1 

|l,l   !i< 

\-\-| — 

Apr 



i    n 

V-   \-; 

:l   ;            i-     ■; 

0.1 


7      8     9  10 

1.0 


3  4  5 


7     8     9   10 

10 


3  4  5 


7      8     9    10 

100 


Frequency,    fe 


FIGURE   82        FREQUENCY-RESPONSE   CURVES   FOR  U.S.G.S.    STRONG  MOTION 
SEISMOGRAPHS 


176 


pq 


oo 


M 


177 


8        SEC.   FILTERING 


10      SEC.   FILTERING 


m 
-o 
r 
> 
o 
m 

m 


A  /vwyaA 


"50  33  55" 

20      SEC.   FILTERING 


10 


50  40  so" 

TIME-  SECONOS 


sc 


90 


FIGURE  84   GROUND  DISPLACEMENTS  IN  THE  SAN  FERNANDO  EARTHQUAKE  AT 

THE  ENGINEERING  BUILDING,  SANTA  ANA,  CALIFORNIA  (COMP.  S04E) , 

FROM  DISPLACEMENT  METER  RECORD  AND  FROM  ACCELERO- 

GRAPH  RECORD  (AFTER  REFERENCE  20) 
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To  compute  the  ground  displacement  from  either 
accelerograms  or  from  displacement  records ,  Trif unac  and 
Lee  used  the  same  processing  procedure  which  involved 
instrument  correction,  baseline  correction,  followed  by 
double  integration,  and  the  high-pass  filtering  of  velo- 
city and  displacement  data. 

From  the  previous  discussion  in  this  report,  it  is 
obvious  the  same  type  of  record  will  be  obtained  if  the 
program  methodology  itself  is  manufacturing  its  own  type  of 
displacement  record  based  on  error  band  frequencies.  How- 
ever,  this  does  not  guarantee  that  the  displacements  are  the 
true  displacements.      To  verify  this  statement  the  final  random 
motion  displacement  record  was  inserted  for  integration  in 
the  Cal.  Tech.  program  with  the  identical  processing  as  for 
acceleration  data.   In  order  to  obtain  the  same  scale  of 

displacement  record,  because  of  "integration  attenuation", 

2  2 
the  displacement  record  was  first  multiplied  by  2.34  tt  = 

54.042  (the  displacement  frequency  being  approximately  1.17  Hz) 

Figure  85  shows  the  integration  results,  which  shows  the 

introduction  of  a  long  period  in  the  displacement  record. 

Since  the  input  displacement  was  already  filtered  at  1  Hz, 

the  long  period,  although  it  is  not  as  high  an  amplitude  as 

for  Figure  77 ,     had  to  be  created  by  the  original  program 

methodology. 
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CONCLUSIONS 

1.  Figure  86  shows  the  integrated  velocity  and  displacement  of 
the  N76°W  Pacoima  Dam  record  in  the  Cal.  Tech.  version  of 
PHASE2  via  the  Electrak  digitization,  while  Figure  87  shows 
the  same  integrated  record  via  the  Benson-Lehner  digitization. 
In  concert  with  Figure  3  it  appears  that  the  Electrak  Data- 
Tablet  Digitizer  will  match  reproducible  results  with  the 

800  line/inch  resolution  of  Cal.  Tech.'s  Benson-Lehner  machine, 
while  the  200  line/inch  resolution  Benson-Lehner  machine  at 
the  Watershed  Research  Station  will  not.   For  efficiency  of 
operation  the  authors  prefer  the  Electrak  machine. 

2.  Optical  scanning  is  not  recommended  as  a  digitizing  procedure 
for  strong  motion  records.   The  procedure  is  too  costly  and  when 
peaks  and  valleys  in  the  record  are  at  close  spacing,  the 
accuracy  is  much  reduced. 

3.  Digitizing  by  hand  using  a  Microfische  Film  Reader  with  a 
contact  printing  screen  bacground  grid  is  an  accurate  method 
of  digitization  when  a  commercial  machine  is  unavailable. 
Although  this  method  is  tedious  and  time  consuming,  the 
accuracy  of  this  method  of  digitization  can  match  that  of  the 
Electrak  machine.   A  free  swing  record  was  redigitized  via  the 
microfische  method  and  integrated  giving  identical  results  to 
Figure  74. 

4.  The  Cal.  Tech.  program  will  give  true  time-displacement 
histories  under  certain  conditions.   These  are: 

A.  The  true  velocity  at  the  beginning  and  end  of 
the  record  is  zero. 

B.  The  true  displacement  at  the  beginning  and  end 
of  the  record  is  zero. 
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C.  The  Ormsby  filter  frequency  is  increased  from 

rr-r  Hz  to  a  value  above  the  highest  error  f re- 
lb 

quency,  but  below  the  lowest  frequency  of  inter- 
est in  the  record.   If  these  two  frequencies  are 
too  close  to  each  other,  the  program  cannot 
guarantee  a  true  time-displacement  history.   The 
integration  methodology  using  the  process  of 
leastsquaring,  Holoway,  and  Ormsby  filtering 
produces  errors.   From  the  experiments  conducted 
in  this  investigation  using  a  Piezotron  Accelero- 
meter  it  appears  that  the  error  frequency  may  be 
extended  to  0.5  Hz.   Further  investigations  may 
be  necessary  with  strong  motion  instruments  and 
simulated  earthquake  displacements  measured 
independently  from  the  earthquake  source  to 
refine  the  change  in  Ormsby  frequency. 

D.  Verification  of  the  accuracy  of  the  integration 
program  for  an  accelerogram  cannot  be  done  with  a 
displacement  meter  record  processed  through  the 
same  computer  program. 
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APPENDIX  A 


Least  Squares  Theory  for  Integration  Program 


1 .1  Introduction 

One  common  assumption  in  digitizing  any  record  is  that 
a  linear  variation  exists  between  the  digitized  points.   If 
the  record  is  an  acceleration  record,  then  the  integrated 
velocity  between  points  varies  as  a  parabola,  and  the  inte- 
grated displacement  between  points  varies  as  a  cubic  equation, 
Corrections  to  the  acceleration  record  are  usually  made 
as  a  polynomial  of  varying  degree  with  constant 
coefficients  —  the  most  common  being  the  straight  line  or 
parabolic  corrections.   The  constants  are  evaluated  by  a 
minimization  procedure,  so  that  the  root  mean  square  value 
of  the  corrected  velocity  is  a  minimum. 

1 .2  Parabolic  Line  Correction  -  Boyce's  Program,  New  Zealand 

To  an  acceleration  term  corresponding  to  a  time  t.  a 
parabolic  line  correction  takes  the  form  of: 

C_  +  C.t.  +  C_t. 
0    1  l    2  l 

Let  a  =  C      2b  =  C      3c  =  C 

Then  the  correction  becomes: 

a  +  2bt.  +  3ct. 
i      i 

The  values  of  a,  b  and  c  will  be  chosen  such  that  the  root 

mean  square  value  of  the  corrected  velocity  is  a  minimum. 

Writing  uncorrected  acceleration  and  velocity  terms  as  A 

and  V  respectively  and  corrected  terms  as  A  and  V  we  have: 
u  c      c 


A-l 


V  =  V 
c 


n  +  f   A 


2     3 
dt  +  at  +  bt  +  ct 


=  V_  +  V  +  at  +  bt2  +  ct3 
0    u 


I 


We  wish  to  minimize  /    V  dt  where  T  is  the  total  record 
time  in  seconds;  therefore,  we  must  solve  the  following 
simultaneous  equations: 


/■ 


5V 


V 


c  6V 


dt  =  0 


0 


where 


6V 

( 

<SV, 


=  1 


/ 


T     6V 


V 


c  6a 


dt  =  0 


SV 

where  -= — 

6a 


/ 


T     6V 


V 


c  6b 


dt  =  0 


6V 

where  — — 

6b 


=  t 


/, 


T    6V 


V 


c  6c 


dt  =  0 


6V 

where  - — 

6c 


=  t 


These  four  equations  give: 


V  T  +  aj_  + 

2       3 


2     3       4       5 
V„T  +  aT   +  bT   +  cT 


VJT3   aT4  +  bT5  +  cT6 
°T  +  ~T     T     ~6~ 


3       4/* 
bT   +cT   =-/Vdt=W 
J       u 


tdt  =  X 


4     5       6 
V^T  +  aT   +  bT   +  cT 


T7  =-[v 


t  dt  =  Y 


t  dt  =  Z 


(A.l) 


If  the  initial  velocity  is  made  equal  to  zero  then 
the  first  row  and  column  is  eliminated  so  that  only  the 
following  three  equations  are  solved  for  a,  b,  and  c  by 
Cramer's  rule: 


A- 2 


aT* 
3 

L 

aT 


aT" 


+  bT 


+  bT" 


+  bT 


+  cT" 


5 

+ 

CT6 

6 

+ 

CT7 

-A. 
-A. 


tdt  =  X 


t  dt  =  Y 


t  dt  =  Z 


(A. 2) 


Denominator  expansion  —  expanded  by  top  row: 


T 

3 

t 

T_ 

4 

c 

r 

5 


r 

5 

£ 

6 

i 

7 


11  [Ti2](JL_!_) 

3   L   Jk35   36; 


4   L    M28 


i-)  +11  [T10](---) 
30;    5   L    M24   25; 


.15, 
.0000026455T" 


T   [.0002645503  -  .0005952381  +  =0003333333] 
,15 


Numerator  expansion  for  a  —  expanded  by  left  column: 


X 


5 

l! 
6 

t 

7 


x[t12]  <-h-y-  y[t11]  (k  -  b  +  z[t10j  (k  -  b 

.0007936508T12X  -  .0023809524T1:LY  +  .0016666667T10Z 


A- 3 


Dividing  through  by  the  denominator  and  substituting  for 
X,  Y,  and  Z  we  get: 


C0  =  a  = 


V  (t)tdt 
-300/    -^ +  900 

•'o    T 


Vu(t)t  dt 
JO  T4 


-  630 


/ 


T  V  (t)t  dt 


(A.  3) 


Numerator  expansion  for  b  —  expanded  by  middle  column: 


T_" 
3 

I 
T_ 

4 
t 

r 

5 


X 


5 

i! 

6 

t 

7 


■  -x[t11]  4  -  y + y[t10]  ^  -  y  -  z[t9]  (i8  -  y 

=  -  .002308924Tnx  +  .  0076190476T10Y  -  .0055555556T9Z 


Dividing  through  by  the  denominator  and  substituting  for 
X,  Y,  and  Z  we  get: 


b  =  900 


T  V  (t)tdt 


r* 


V  (t)t2dt  V  (t)t3dt 

-2880  /  X  -H— r -  2100  P  — 7 

■0     T5  J0  T6 


3L 


or  • 


C,  =  2b  =  1800  , 

J0  T* 


>f  ^ 


V  (t)tdt 


-  5760 


1 


V  (t)t  dt 
T   u 


rT    V  (t)t Jdt 

+  4200/     ^~T— 

0      x 


(A. 4) 
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Numerator  expansion  for  c  —  expanded  by  right  column: 


T 

3 

L 
T_ 

4 

t 

T 

5 


T_ 
4 

c 

r 

5 

i! 

6 


in  q  s 

=  .0016666667T  X  -  .005555556T  Y  +  .0041666667T  Z 


Dividing  through  by  the  denominator  and  substituting  for 
X,  Y,  and  Z  we  get: 


V  (t)tdt           V  (t)t2dt 
•630  fT  -^—5 ■-  2100  fT   -^ — ^ -  1575  ' 

0    T  0    T  Jo 


vu(t)t  dt 

7    ~ 


or 


C  =  3c  =  -1890 


,rc  _u 


V  (t)tdt 


+  6300 


'/ 


vu(t)tdt 


-  4725 


.  /•'!   u 

7    - 


V  (t)tdt 


(A. 5) 


Equations  (A. 3),  (A. 4),  and  (A. 5)  are  used  in  Boyce's 


Program  for  the  leastsquare  procedure  when  the  initial  velo- 
city is  considered  to  be  zero.   When  V_  ^  0,  then  the  eval- 
uation of  equation  (A.l)  results  in  the  following  solution: 


A-5 


V  dt         V  tdt       _  V  t2dt       _  V  t3dt 
V_  =  16[T   -£--  120  fT   -Sj-  +  240  r  --J4-+  140rT  -J4-  (A.6) 
7n  ■'o   T       70    TJ      A)    T^ 


V  dt  V  tdt  V  t2dt 


V 

=  -120  / x  -^2~  +  i: 

■'O        T 

.T  v  t3dt 

+ 1680  r  u 

'(>          T 

-  2700 


4 
0    T 


(A.  7) 


„T  V  dt         ^  V  tdt  v  t2dt 

C  =  480  F   -V  "  5400  fT  -V-  +  12960  fT  -*-=— 

1    Jo      ^  4   T'       jo   t5 

/t  V  t3dt 
-  8400  P  -^-7 —  (A. 8) 


V  dt  V  tdt  V  t2dt 

C0  =  -420  fT   -V"+  5040 /*T  -~ 12600/  T  -~ — 

2       J0    T4        J0    T5  J0  T6 


T  V  t3dt 
+  8400Ti  -^ —  (A. 9) 

J0         T 


Equations  (A.6)  through  (A. 9)  are  used  in  Boyce's  Program. 


1 .3    Evaluation  of  Integrals  -  Boyce's  Program 

(21) 
Simpson's  Rule      is  a  well-known  quadratic 

formula  for  the  evaluation  of  an  area  under  a  curve  by 

numerical  analysis,  provided  the  abscissa  of  the  curve  is 

divided  into  an  even  number  of  lengths  (Figure  A-l) ,  denoted 

by  h. 


A-6 


h   I   h   I   h   I   h     h     h 
X0    Xl    x2    x3    x4    x5    x( 


FIGURE  A-l   INTERVALS  FOR  SIMPSON'S  RULE 


The  area  is  evaluated  by  considering  pairs  of  intervals: 

J    2     f(x)dx  =  |  [f  (xQ)  +  4f  (xx)  +  f(x2)] 
X0 
f*4  f(x)dx  =  |  [f(x2)  +  4f(x3)  +  f(x4)] 

X2 
yX6  f(x)dx  =  I  [f(x4)  +  4f(x5)  +  f(x6)] 


x, 


etc. 


For  unequally  spaced  digitized  time  data,  it  is 
necessary  to  divide  each  time  increment  into  two  equal  divisions 
and  consider  h  =  time(i  +  1)  -  time(i).   The  least  square 
integral  equations  then  become: 


"     l+l  1 


/    Vdt  -  £ 


2(3) 


'Vi  +  4vi+f  (ti  V1+1) 


+  vi+lti+l1 


A-7 


t...  -  t. 

1+1  1 


=  I  6 [Vi  +  2Vi4i  <fci  +ti+l>  +  WW1  (A'10) 


) 


/T  v2«  =  I  -tbt1  [Vi2  +  wi^  (^ 1: 

o  2 

+  Wi+i2) 


-  I  '-^^P1  ^   +  'i+J.(ti  +  t±+1)2  +  V1+1ti+12]    (A.ll) 

2 


;T  v3*<  ■  i  H^  [vi' + vi^'3 


+  'i+i'i+i3' 


t .    - 1 . 

■  £  -^ "  IV-t-3  +  TV-  +  T  (*.  +  t-^i)3  +  V.^t.,3]   (A.12) 

*>»     6       ix    2  x   2   x    x+1      x+1  l+l 


Equations  (A. 10)  through  (A.12)  are  evaluated  in  Boyce's 
Program. 

1 . 4    Straight  Line  Correction  -  Trifunac's  Program  (Cal .  Tech. ) 

To  an  acceleration  term  we  apply  a  correction  of  the 
form 


A  =  A  r-   C_  „  C.t. 
c    u    0    1  l 


where  A  is  the  corrected  acceleration  and  A  the  uncorrected 
c  u 

acceleration.   We  now  wish  to  minimize  /  T  A  ^dt  where  T  is 

J  c 

the  record  length;  thus:  u 

A-8 


£ 


6A 
^c^C~ 


dt  =  0 


and 


r 


6A 

c 

Lc6C, 


dt  =  0 


These  two  conditions  give: 


C  T  - 


if  =+J    Audt  "  Ai 


C02"  +c 


if-/  Au 


tdt  =  A, 


We  solve  for  the  constants  C  and  C1  by  Cramer's  Rule. 
The  denominator  becomes: 


T      TT" 


T 
12 


The  numerator  becomes  for  C 


0 


h 


=  A 


1  3 


A2  2 


The  numerator  becomes  for  C. 


A2T     Al  2 


A- 9 


Therefore: 


Al  3 


-  A 


T_ 
12 


2  2 


4    3       2 
j  A1T°  -  2A2TZ 

Z 
3 


(A. 13) 


A2T   Al  2 
12 


4A  T  -  2A.T 


(A. 14) 


A-  is  the  area  under  the  acceleration-time  curve 
(Figure  A-2) ,  or  the  velocity  curve. 


A 
u 

<*^^~ 

Actual  A 
u 

Assumed  A 

u 
,t 

i  -  1 


i  +  1 


FIGURE  A-2  ACCELERATION-TIME  CURVE  FOR  NUMERICAL  INTEGRATION 


Suppose  that  the  acceleration  varies  linearly  between  time 
stations.   The  accelerat 
then  be  approximated  by: 


stations.   The  acceleration  between  time  t   and  t±+i     would 


A- 10 


A  =  A     +  Au(i+D  "  Vi)    _ 
u    u(i)      t.+1  -  t. 

The  velocity  at  any  time  within  the  same  time  interval  may 
be  obtained  by: 


t 


+  f        A  < 

K      u 


v  =  v  c\     +  I        A  dt 
u    u(x) 


t 

X 


or 


v  =v     +A     (t  -  t  )  +  u(i+1) ^-  (t  -  t  )2 

Vu   Vu(i)  +  Au(i)  U   V  +   2(t±+1  -  t.)   U    V 


which  at  station  i  +  1  becomes: 


(t    -  t  ) 

V  .....    =  V  ...  +   X  % —  (A  ,.,n  +  A  ,,.)    (A. 16) 

u(x+l)    u(x)        2        u(x+l)    u(x) 


See  line  LES  031   Appendix  D 

The  displacement  at   t  +  1  is  given  by: 


:.  +   ft±+1    vc 
1      't. 


xi+i  =  x-  +   '  v  dt 


(t      -t.)2 

=  X.   +  V    ,M(t.x1-tJ   +  — ^ — - —  (2A   ,..+  A    ,,X1J 
x  u(x)      x+1     16  u(x)        u(x+l) 

CA.17) 
See  line  LES  030   Appendix  D 


A-ll 


A„  may  be  evaluated  within  the  same  time  interval  as: 


A2(i+1)  =  A2(i)  +/  Au  t  dt 

t. 
x 


=  A     +  u(i)  (t        2_  t  2n 
A2(i)  +   2    Ui+1   ti  ; 


.  Au(i-H)  Au(i)      3     3 
3(ti+l  -  ti)    i+1     * 


Au(i+1)  +  Au(i)         2    2 

2(t4J.1  -  t.)      V^+l   *i  }        (A*18) 
l+l    l 


However  the  Cal.  Tech.  program  uses  a  simpler  formula, 
which  may  be  obtained  by  dropping  the  straight  line  approxi- 
mation to  the  variation  of  acceleration  and  integrating 
/A  (t)tdtover  the  entire  length  of  the  record  by  parts 
as  an  exact  integral. 

Let  u  =  t,  du  =  dt,  dv  =  A  (t)dt  and 
/dv  =  v  =  /Au(t)dt  =  V(t) 

Then  using  the  method  of  parts: 

yAu(t)tdt  =  t  x  V(t)      -  f        V(t)dt 
o  Jo  '  o 

=  T  x  V(T)  -  0  -  Final  Displacement 

=  Final  velocity  x  Record  Length  (Time) 
-  Final  Displacement  (A. 19) 

See  line  LES  43   Appendix  D 


A-12 


Numerical  calculations  using  equations  (A. 18)  or  (A. 19) 
give  the  same  results  to  three  decimal  places. 


A-13 


APPENDIX  B 


Filter  Mathematics 


Figure  B-l  shows  a  desired  response  chart  in  a 
frequency  domain  from  -co  to  +00  . 


H(w)    =  H(u>) 


"OJn 


OJ, 


wr   u 


FIGURE  B-l  RESPONSE  CHART 


It  is  desired  to  maintain  a  1:1  ratio  of  input  data  to 
output  data  in  the  frequency  range  of  -co   to  -Ho  .   Let  us 
therefore  define  a  response  function  between  -  °°  and  +  °° 
to  be  as  follows: 


H(oo)  =  - 


;        co  I   >  oo, 


;        co  |   <   oo 


1        P  P 

( )       (co  +oo)       ;      -oo m  <   oo   <   -oo 

co   -co  T  T  -  c 

T     c 

IP  P 

( )       (co   -co)       ;      oo      <   co   <   oom  (B.l) 

co   -oo  T  c  T 

T     c 


where  co   is  the  cut-off  frequency. 


B-l 


The  value  of  P  determines  the  shape  of  the  drop-off 
portions  of  the  curve.   If  P  =  1  the  shape  is  a  straight  line, 
which  the  Cal.  Tech.  program  assumes.   For  mathematics  sake 
the  folding  frequency  is  taken  as  zero  —  frequencies  below 
zero  are  fictitious.   The  weight   function  h(t)  associated 
with  H(co)  is  given  by: 


h(t)  =  \-  J      eia)t  H(u))  da)  (B.2) 


Noting  that  the  integral  can  be  broken  into  five  distinct 
parts  with  appropriate  limits, 


h(t)    =     j-  f      elwt    (0)du 


1        f^CJcot     ,    1  NP 


-to„ 


■>rp 

T       c 


-L.  1  f        C   «^Wt       /-.NJ 

+     27/        e  (l)da) 

,      1      fUT    iiot    /     1     NP,         .P, 

+    27  /     e        fc^T>   (<Vw)  dw 

V  T     c 


+  f  r 


eibit    (O)dco  (B.3) 


oor 


the  first  and   last   term  have  zero  factors,    thus   leaving  only 
the   second,    third,    and   forth  term  to  be  integrated  by  parts. 

Noting   that   e  =   cos  cot  +  i   sin  cot  and  letting  P  =  1, 

we  evaluate  the  following  equation  term  by  term: 


B-2 


/T* ,  ....  ,  i_  r  wc  ei^dw 


h(t)  =  i_  pc  eiu.t  (__t_}  d0J  +  if 


-oo_  T     c  -ur 


-,.v        .          O0m-oo 
+  ^_  /      T    eK»»t    (Z )    dW  (B.4) 


2tt  7 


Now: 

-00 


/c  icot  ^.  -ojc 

e  (oj+oj   )  do)     =   /  (cos  wt  +  isinoot)  (oo-ko   )doj 

-w  r  J-oo 

T    oocosootdoo     +  /    a)  coscotdoo     +    | 

+     f      lay 


oocosootdoo     +    /    oo_cosootdoo     +    /     ioosinootdoo 
„sinootdoo 


where,  using  the  method  of  parts 


oocosootdoo     =    [ ]    -  —   J     sxnootdoo 


oj  sinoj  t  oo^inoo,^  cosoo  t 

c  c  T_        T  c 

t2 

COSOO    t 

—  (B.5) 

t 


J    ioosinootdoo     =      [-  —  oocosoot]   H /     cosootdoo 


=  —  oj  cosoo  t oomcosoo  t 7T  sinoo  t 

t      C  "        c  t    T  I  c 


+  — 2   sinojyt  (B.6) 


B-3 


and 

/oo  sinoo  t         a)  sinu)  t 
,  .     OOt  T  C  T  T 

a)  coswtdoo     =  oo  sin —  = +  — *—        (B.7") 


I 


100mCOS00    t 
,,  .        CQSOOt  T  C 

ioj  smojtdoo  =  -  ice  = 

T  t  t 


iooycosoo  t 
+     1 (B.8) 


Also: 


i    rwc     loot  ,       i '  rK    t       _      ■  ■    +^  a 

—  I  e         doo  =   ~—  /     c      (cosoot  +  lsinoJt)   doo 


-ojc  -o)c 


-    r—  s^nCi0t:i        ricos  oot-. 
L2tt        t      J        L    2tt       tJ 


Where: 


oo                                  .  oj              sinoo  t 

[icosoit       c  and       sinyt  c  =     _c_           (     9) 

1     2lTt             -00                                     L     27Tt  -U)                     TTt 

c  c 


Finally: 

/OJ  4m).  /»  00 

T   e  (oo  -oo)doo     =|     Z1         (cosoot  +  isinoot)  (ooT-oo)doo 

=    f  oo  cosootdoo  =    f   oocosootdoo  +     /      ioo  sincotdoo 
-    f    ioosinootdoo 

where,  using  the  method  of  parts: 


/    oocosootdoo     =     -  a3S^n —    +  —     I     sinojtdoo 


B-4 


comsincomt  0)  sinco  t  cosco  t 

T  T  c  c  T 


2 
t 


cosco   t 

5s-  CB.10) 

t 


-     /       icosincotdco  =  —  o)coscot /    co 


scotdco 


i  i  i         . 

=  T  CO   COSO)    t   -  —     0)   cosco    t    -  — t-  smco   t 
t     r  t        c  c  2  r 


+  ij  sincoct  v'B.ll) 


and 

/sincot  co  sinco  t  co  sinco  t 

co  coscotdco  =     co     =  — — (B.12) 

T                           T     t                        t  t 


/ 


10)  mC  OS  CO    t 

cot  r        r 

icomsincotdco  =  -  icomcos 


T  T  t  t 


ico  cosco  t 
+  r — —  (B.13) 


Equation  (B.6)  cancels  Equation  (B.ll) 
Equation  (B.8)  cancels  Equation  (B.13) 

Substitution  of  equations  (B.5),  (B.7),  (B.9),   (B.lO),  and 
(B.12)  into  equation  (B.5)  gives: 


B-5 


i  V  V 

h(t)    =     2TT(o)r-a)c)    [2C°S  ~T     "   2coS  ~T 


2sinoo  t  sinoo  t 

(00-00  )]     + 


t  T      C  TTt 


COSOO    t    -    COSOJ    t 

c r_ 

IT  (00    -00    )  t 
T      C 


CB.14) 


The  filter  weights  h(t)  must  be  evaluated  for  equally 
spaced  times.   For  use  in  the  computer,  we  normalize  the  roll- 
off  and  cut-off  frequencies  (oo  and  oo  )  by  denoting  the 

variables  A   =  oo/oo    ,    oo     =   2fTf    ,   oo     =   27Tf    ,    A      =  oo  /oo   ,    and 
s       c  c        r  t        c  c     s 

A  =  (oom-oo  )/oo  ;  where  oo  is  the  effective  sampling  angular 
r     i  c   s         s 

frequency. 

,       .    1  2tt  2tt 

(note:   At  =  7—  =  —  00   =7— 

f  00  s     At 

s  s 


Assuming  h(t)  real,  H(oo)  turns  out  to  be  an  even  function; 
thus  h  =  h-n  and  only  n  +  1  weights  need  be  calculated . 
The  following  digitized  non-dimensional  formula  results: 


cos  27TnA   -  cos  2imA  n  =  0,+  1,+  2,...N 

c  t  —   — 

Ti   =  —  1 

2Ar(rrn)2  \  =  Xc+Xr        (B-15) 


The  formula  is  evaluated  by  the  Ormsby  subroutine. 
A  special  form  of  this  equation  needs  to  be  evaluated  for 
n  =  0,  when  the  formula  becomes  indeterminate  using 
De  1'  Hospital's  rule. 
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h     = 
n 


cos(2TTnX   )    -   cos(2TTnA    ) 

c t 

2X    (un)2 

r 


Let 


h     = 


g(n) 

f(n) 


6(g(n)) 
5(f(n)) 


2ttX   sin(2TrnA    )   +  2ttX   sin(2TTnX    ) 
c  c t  t 

4X  it  n 

r 


For  n=0,      h     =  °° 
n 


Therefore  use  De  1'  Hospital's  Rule  again, 


6/(g(n))      m 
62(f(n)) 


2      2  2      2 

4tt  X      cos(27TnX   )   +  4tt  X     '   cos(2irnX    ) 
c  c t t 

4X    7T2 

r 


2                                   2 
X      cos(2ttiiX    )    -  X      cos(2iTnX   ) 
t t c c__ 

X 


X2-X2  (X-X)(X+X) 

For  n=0,  t c  t        c/      t  c 


X 


X 


LOm-0) 
T       c 
But    X      =  — 

r  oo 


O3m-C0 

to 
s 


(xt+xc) 


L0m-O) 

S 


=    X  +x 

t     c 


The  quantity  X     =    (oom-  oj   )/co     which  specifies   the  sharpness 
^  r  -T        c        s 

of   roll-off   after  X      together  with  the  number  of  weights  N 


B-7 


measures  the  resultant  accuracy  of  H(A)  with  reduced  accuracy 

for  lower  X  and/or  lower  N. 
r 

To  provide  a  means  for  quickly  determining  the  minimum  N 

to  choose  for  a  decimal  accuracy  and  sharpness  of  roll-off,  a 

series  of  response  runs  were  made  by  Ormsby  (   )  covering  a 

range  of  X   from  0  to  0.4,  X   from  0.005  to  0.1  and  N  from 
°      c  r 

10  to  100.   Figure  B-2  shows  the  filter  frequency  response 
from  his  publication,  for  which  he  derived  the  following 
formula: 


1.1  


H(X) 


0.10,  >   =  0.02 
r 

N  =  oo 

N  =  50  (with- 
out constraints) 


...48   .50 


FIGURE  B-2  FILTER  FREQUENCY  RESPONSE 
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r       £ 


where  £  is  the  tolerable  error.   Trifunac  uses  £  =  0.012, 
so  that  in  effect 

-  ■  b 

r 


in  equation  (B-15) . 
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APPENDIX  C 
USER'S  INSTRUCTIONS  -  PROGRAM  DIASMA 


1.1    PHASE1 


The  function  of  the  PHASE1  subroutine  is  essentially 
that  of  taking  raw  digitized  accelerogram  data  and  converting 
it  to  data  that  can  be  used  for  subsequent  integration  and 
filtering.   All  the  coordinate  data  (input  and  output)  appears 
as  two  numbers  which  represent  the  time  and  acceleration  values 
of  an  earthquake  record.   These  digitized  coordinates  can  be 
input  via  a  7  or  9-track  magnetic  tape  or  IBM  computer  cards. 
However,  the  title  card  and  main  control  cards  must  be  in 
punched  card  form.   The  output  from  PHASE1  is  given  as  either 
a  coordinate  plot,  a  listing,  or  a  punched  deck  of  computer 
cards  representing  the  desired  output  data. 

On  the  output  data  deck,  coordinate  points  are  punched 
on  20  columns,  with  a  'maximum  of  four  points  per  card.   Each 
20  columns  are  punched  in  the  FORMAT  2F10.3,  where  the  first 
10  columns  represent  the  time  coordinate,  and  the  second  10 
columns  represent  the  acceleration  coordinate. 

To  utilize  subroutine  PHASE1,  the  following  cards  are 
required: 

First  Card: 

Reduction  factors  for  Calcomp  Plotter. 

FORMAT  (3F10.3)  XRED,  YRED,  DACCEL 

This  information  is  for  limiting  the  final  dimensions 

of  the  plot  to  any  convenient  size.   For  example,  if 

XRED  =  0.5  the  plot  is  reduced  to  1/2  normal  size. 

If  XRED  =  2,  the  plot  is  doubled  its  normal  size  for 

the  Time  coordinate.   YRED  is  the  proportional  size 
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change  for  the  acceleration,  velocity,  or  displacement 
coordinate.   See  page  C-6  for  DACCEL. 


Second  Card: 


Determines  the  use  of  the  program  for  digitization 
or  integration, 

FORMAT  (2I5,4F10,6)  NPHASE,  NCORR,  A,  K,  C,  D 
Column  5 

Use  will  Be  for  digitization. 

Use  will  be  for  integration. 


NPHASE  =  1 
=  2 
Column  10 


NCORR  =  0     Baseline  corrected  data  will  be 

prepared  from  corrected  raw  data. 
=  1     Raw  data  will  be  plotted  to  scale  of 
original  accelerogram. 


Columns  11-20 


Columns  21-30 

■  m  ■  ■  ■     ■■  ■ 

B 
Columns  31-40 


Columns  41-50 


Time  scaling  factor  for  PLOTTR  sub- 
routine. 

Initial  raw  Time  data  to  scale  of  A. 

Acceleration  scaling  factor  for  PLOTTR 
subroutine. 

Initial  raw  acceleration  data  to 
scale  of  C. 


Third  Card 


Title  of  accelerogram  data 

FORMAT  (8A10) 

Up  to  eighty  characters  can  be  used.   Usually  this 

card  gives  the  location  of  "the  accelerograph  and  the 

component  being  digitized. 
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Fourth  Card 


Main  Control  Card 

FORMAT  (315,4710. 0)  NPLOT,  NPUNCH,  INPUTP ,  SIZE, 

XLEN?  SCALET,  SCALEA 

Column  5 

NPLOT    =0    No  plot  is  output. 

=  1    Input  digitized  data  will  be  plotted. 
=  2    Baseline  corrected  and  scaled  data 
will  be  plotted, 
(Note:   Any  number  other  than  1  or  2  will  be  interpreted 
as  a  zero,  i.e.,  no  plot.) 
Column  10. 

NPUNCH   =0    No  cards  will  be  punched. 

=  1    Input  digitized  data  will  be  punched 

on  cards. 
=  2    Baseline  corrected  and  scaled  data 
will  be  punched  on  cards, 
(Note:   Any  number  other  than  1  or  2  will  be  interpreted 
as  a  zero,  i.e.,  no  punch.) 
Column  15 

INPUTP   =  1    Digitized  coordinate  values  repre- 
senting time  and  acceleration  will 
be  input  via  punched  cards . 
=  2    Digitized  coordinate  values  will  be 
input  via  magnetic  tape. 
(Note:   Any  number  other  than  2  will  be  interpreted 
as  a  1,  i.e.,  computer  expects  input  data  to  appear 
on  punched  cards.) 
Columns  16-25 

SIZE     =      Vertical  distance  (in  inches)  from 

the  highest  peak  to  the  lowest  valley 
of  accelerogram  trace. 
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Columns.  26-35 

XLEN     =      Horizontal  diatance  (in  inches)  from 

the  first  time  coordinate  to  the  final 
time  coordinate  of  accelerogram  trace, 
XLEN  is  limited  to  positive  values 
and  the  physical  length  of  the  plot- 
ting paper, 
(Note:   No  value  need  he  intered  for  SIZE  and  XLEN 
if  NPLOT  is  specified  as  zero,) 
Columns  36^45 

SCALET   =      Time  scaling  factor  used  to  convert 
digitized  "counts"  of  time  to  any 
desired  output  units  (e.g.,  seconds,) 
Columns  46-55 

SCALEA   =      Acceleration  scaling  factor  used  to 
convert  digitized  "counts"  of  accel- 
eration to  any  desired  output  units 

2 
(e.g.,  cm/ sec  or  units  of  gravity.) 

(Note:   No  value  need  he  inserted  for  SCALET  or  SCALEA 
if  NPUNCH  or  NPLOT  is  any  number  other  than  2.   Also 
if  INPUTP  =  2,  all  subsequent  data  for  this  component 
must  be  on  magnetic  tape.) 

Accelerogram  Data  Cards 

The  third  card  begins  the  digitized  data  deck  (if 

INPUTP   is  specified  as  any  number  other  than  2) . 

The  third  and  subsequent  cards  contain  the  digitized 

time  and  acceleration  data. 

FORMAT  4(2F10.0)  TIME(l)  ,  ACCEL(l),  '.  .  . 

Columns  1-10 

TIME(l)   =      Digitized  time  coordinate  of  point  1. 
Columns  11—20 

ACCEL(l)  =      Digitized  acceleration  coordinate  of 
point  1. 
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Columns  21-30 

TIME(2)   =      Digitized  time  coordinate  of  point  2, 
Columns  31-40 

ACCEL(2)  =      Digitized  acceleration  coordinate  of 
point  2. 

And  so  forth  .  .  . 

Time  and  acceleration  coordinate  values  are  input  in 
this  manner;  i.e.,  each  coordinate  point  uses  20 
columns  to  represent  its  location  on  the  accelerogram. 
(Note:   Four  points  i.e.,  pairs  of  coordinates  must  be 
digitized  on  each  card;  otherwise,  blank  spaces  will 
be  interpreted  as  zeros.   The  last  data  card  may  have 
fewer  than  four  points.) 

EOF  Card: 

An  end-of— file  card  is  placed  after  the  last  card 
containing  accelerogram  trace  coordinates. 

Fixed  Trace  Data  Cards : 

Fixed  trace  digitized  data  (if  any)  follows  the  EOF 
card. 

FORMAT  4(2F10.0)  X(I),  Y(I) , .  .  . 
Digitized  fixed  trace  data  appears  in  the  same  as 
Accelerogram  Data  cards;  i.e.,  four  pairs  of  coor- 
dinate values  per  card  representing  the  "X"  and  "Y" 
values  of  the  fixed  trace. 

EOF  Card: 

An  end-of-file  card  is  placed  after  the  last  card 
containing  digitized  fixed  trace  coordinates. 
(Note:   The  second  EOF  card  is  required  even  though 
there  may  be  no  fixed  trace  data  cards.) 
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1.2    PHASE2 


Subroutine  PHASE 2  does  the  job  of  processing  earthquake 
data  so  that  it  may  be  acceptable  for  use  in  determining  the 
design  spectra  for  the  earthquake.   The  input  data  appears  in 
the  same  format  as  that  of  the  PHASE1  program.   That  is,  each 
digitized  point  is  represented  by  a  pair  of  numbers,  the  time 
and  acceleration  coordinates.   The  input  data  may  be  unsealed 
with  no  baseline  correction  or  fixed  trace  correction.   These 
operations  can  be  performed  in  PHASE 2.   However,  the  subroutine 
has  no  provision  for  reading  data  from  a  magnetic  tape.   All 
input  data  must  be  in  the  form  of  punched  cards. 

The  output  from  PHASE2  is  in  the  form  of  a  listing 
of  the  final  filtered  and  integrated  acceleration,  velocity, 
and  displacement,  all  as  a  function  of  time.   The  user  may 
also  elect  to  output  a  plotted  graph  of  the  final  above 
information  along  with  a  graph  of  the  major  filter  weights. 
No  other  form  of  output  is  provided. 

To  utilize  the  PHASE2  subroutine  the  following  input 
cards  are  required: 

First  Card: 

Reduction  factors  for  Calcomp  Plotter. 
FORMAT  (3F10.3)  XRED,  YRED 

The  first  two  items  are  for  limiting  the  final  dimension 
of  the  plot  to  any  convenient  size.   For  example,  if 
XRED  =0.5  the  plot  is  reduced  to  1/2  normal  size. 
If  XRED  =  2,  the  plot  is  doubled  its  normal  size  for 
the  Time  coordinate.   YRED  is  the  proportional  size 
change  for  the  acceleration,  velocity,  or  displacement 
coordinate.  DACCEL  is  the  only  non-general  term  in  the 
computer  listing,  and  was  used  to  represent  the  max- 
imum lift  height  of  the  pendulum  in  the  experiments 
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described  in  this  report.   It  was  used  to  convert  the 
measured  digitized  data  to  a  zero  baseline  at  the 
bottom  position  of  the  pendulum. 


Second  Card : 


Determines  the  use  of  the  program  for  digitization 
or  integration. 

FORMAT  (2I5,4F10,6)  NPHASE,  NCORR,  A,  B,  C,  D 
Column  5 

NPHASE   =  1   Use  will  be  for  digitization, 
=  2   Use  will  be  for  integration. 
Column  10. 

NCORR    =!  Q   Baaeline  corrected  data  will  be 

prepared  from  corrected  raw  data, 
=  1   Raw  data  will  be  plotted  to  scale  of 
original  accelerogram* 


Columns  11-2Q 


Columns  21-30 


Time  scaling  factor  for  PLOTTR  sub- 
routine. 


B        =     Initial  raw  Time  data  to  scale  of  A. 
Columns  31-40 

C        =     Acceleration  scaling  factor  for  PLOTTR 
subroutine. 
Columns  41-50 

D        =     Initial  raw  acceleration  data  to 
scale  of  C. 


Third  Card: 


Title  of  accelerogram  data 
FORMAT  (8A10) 

Up  to  eighty  characters  can  be  used.   Usually  this 
card  gives  the  location  of  the  accelerograph  and  the 
component  being  digitized. 
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Fourth  Card 


Main  Control  Card, 

FORMAT  (4F1Q.Q,I5)  T,  CD,  SCALET,  SCALEA,  NPLOT, 

ISHORT,  NEWWAY,  N2WAY,  N3WAY,  N4WAY 

Columns  1-1 U 

T        =     Natural  period  of  the  ace el ero graph 
transducer  given  in  seconds. 
Columns  11-20 

CD       =     Critical  damping  coefficient  of  the 
accelerograph  transducer  given  in 
percent. 
(Note:   This  information  is  usually  available  from  the 
seismiological  station  where  the  accelerogram  was 
recorded,   If  this  information  is.  unknown  and/or  these 
first  20  columns  left  blank,  the  program  will  not  per- 
form an  instrument  correction  on  the  data,) 
Columns  21-30 

SCALET   =     Time  scaling  factor  used  to  convert 
input  time  data  to  seconds . 
Columns  31-40 

SCALEA   -•     Acceleration  scaling  factor  used  to 
convert  input  acceleration  data  to 
units  of  G. 
(Note:   Program  PHASE2  requires  that  the  data  is  scaled 
to  seconds  and  cm/sec/sec.   Scaling  factors  that  yield 
other  units  of  time  and  acceleration  will  yield  er- 
roneous output.   If  the  data  is  input  in  units  of 
seconds  and  gravity,  then  SCALET  and  SCALEA  should  be 
defined  as  1 .0.) 
Column  45 

NPLOT    =  Q   No  plot 'is  output. 

=  1   Final  acceleration  will  be  plotted. 
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(Note:   Any 
Interpreted 
Column  50 
I SHORT 

Column  55 


NEWWAY 


Column  6Q 
N2WAY 


Column  65 

N3WAY 


=  2    Final  acceleration,  velocity,  and 

displacement  will  be  plotted. 
-   3   Final  acceleration,  velocity,  dis- 
placement and  the  low-pass  filter 
weights  will  be  plotted. 
=  4   Only  the  low-pass  filter  weights  will 
be  plotted, 
number  other  than  the  above  will  be 
as  a  zero,  i.e.,  no  plot.) 

0  Instrument  correction  is  performed. 

1  No  instrument  correction  is  performed 


=  0    Cal .  Tech.  integration  procedure  is 
used . 

=  1   Horizontal  baseline  correction  re- 
places leastsquare  correction  pro- 
cedure.  Filtering  procedure  follows 
Cal.  Tech.  method. 

=  0   Cal.  Tech.  integration  procedure  is 
used . 

=  1   Horizontal  baseline  correction  for 

acceleration  and  velocity.   No  filter 
procedure  for  velocity  or  displace- 
ment. 

=  0   Cal.  Tech.  integration  procedure 
used . 

=  1    Horizontal  baseline  correction  replaces 
leastsquare  procedure  for  acceleration 
and  velocity.   No  filter  procedure  on 
acceleration,  velocity,  or  displacement. 
HORIZ  subroutine  used  on  acceleration 
when  data  has  been  decimated  to  0.02  sec, 
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Column  70 
N4WAY 


Column  75 

N5WAY 


Column  80 
N6WAY 


=  0   Cal.  Tech.  integration  procedure 
used. 

=  1   Horizontal  correction  procedure  for 
acceleration  only.   Filtering  on 
acceleration  and  velocity,  but  not  on 
displacement.   The  velocity  is  least- 
squared.   Essentially  this  is  the  same 
as  NEWWAY  except  that  the  displacement 
filter  is  eliminated.   HORIZ  sub- 
routine used  on  acceleration  when  data 
has  been  decimated  to  0.02  sec. 

=  5   The  Ormsby  filter  ramp  is  changed  to 

f  =  .48,  f  =  .50  Hz. 
c         t 

=  7   The  Ormsby  filter  ramp  is  changed  to 

fc  =  .08,  ft  =  ,10  Hz. 

=  8   The  Ormsby  filter  ramp  is  changed  to 

f  =  .28,  f  =  .30  Hz. 
c      '   t 

■  9   The  Ormsby  filter  ramp  is  changed  to 

f  =  1.98,  f  =  2.00 

=  10  The  Ormsby  filter  ramp  is  changed  to 

f  =  .98,  f  =  1.0  Hz.   If,  in  addition 
c         t 

N2WAY  =  8,  then  an  input  displace- 
ment record  will  be  high-pass  filtered 
at  1  Hz. 

=  1   HORIZ  replaces  the  leastsquare  sub- 
routine for  acceleration  and  velocity. 
No  filters  are  used.   Essentially  this 
is  the  same  as  N3WAY  except  that  HORIZ 
operates  on  the  acceleration  data  while 
it  is  still  interpolated  at  0.01  sec. 

=  1   HORIZ  replaces  the  leastsquare  sub- 
routine for  acceleration  and  velocity. 
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Filters  are  used  for  acceleration, 
velocity,  and  displacement. 

Figure  C-l  summarizes  the  above  options  from  the  Cal. 
Tech  program  by  listing  the  various  steps  in  each  option. 

Accelerogram  Data  Cards : 

The  third  card  begins  the  input  data  deck  of  the 

time-acceleration  coordinates. 

FORMAT  4(2F10.0)  TIME (I) ,  ACCEL (I) ,  .  .  . 

Each  coordinate  appears  on  20  columns  of  a  punched  card 

with  the  time  coordinate  in  the  first  10  columns  and 

the  acceleration  coordinate  in  the  second  10  columns. 

All  cards  (except  the  last  card)  must  contain  four 

pairs  of  coordinate  data.   The  decimal  point  may  appear 

anywhere  in  the  10  columns  or  if  it  is  omitted,  it  will 

be  located  after  the  digit  in  the  tenth  column  of  the 

coordinate. 


EOF  Card: 


An  end-of-file  card  is  placed  after  the  last  card 
containing  accelerogram  trace  coordinates . 
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APPENDIX  D 

DIASMA  Program  Listing 

Appendix  D  contains  a  listing  of  the  computer  program 
used  by  the  authors  to  process  the  data  of  this  report.   The 
listing  is  given  for  both  the  IBM  360/370  O.S.  computer  and 
the  CDC  6400  computer;  together  with  control  statements  for 
running  the  program  on  either  computer. 

In  the  plot  routine  for  PHASE2  decimation  problems 
caused  overruns  beyond  the  ends  of  some  arrays;  therefore, 
the  problem  was  solved  by  eliminating  a  few  end  points  in  the 
plot. 


D-l 


*^^t****** ***********************  ********************************* 

IMPLICIT  REAL*4  (A-H.O-Z) 

PROGRAM  DAISMA  PROCESSES  DIGITIZED  STRONG  MOTION  EARTHOUAKE 
ACCELERATION  RECORDS  TO  OBTAIN  GROUND  VELOCITY  AND  DISPLACEMENT. 
THIS  IS  DONE  IN  TWO  PHASES.  PHASE  1  ACCEPTS  DIGITIZED  DATA  FROM  A 
MAGNETIC  TAPE  OR  COMPUTER  CARDS.  CHECKS  THAT  THE  PLOT  OF  THE  DATA 
AGREES  WITH  THE  ORIGINAL  RECORD.  THE  DATA  INCREASES  MONOTONIC ALLY 
WITH  TIME,  AND  PUNCHES  A  NEW  SET  OF  BASELINE  CORRECTED  DATA 
STARTING  AT  TIME  ZERO.  PHASE  2  USES  THE  OUTPUT  OF  PHASE  1  TO 
CONVERT  THE  DATA  INTO  UNITS  OF  CM  FOR  TIME  AND  CM/SEC/SEC  FOR 
ACCELERATION.  FINALLY  PHASE  2  INTEGRATES,  L E A STSOU ARE S .  AND 
FILTERS  THE  DATA  TO  PRODUCE  A  PLOT  OF  GROUND  ACCELERATION, 
VELOCITY,  AND  DISPLACEMENT. 


IF  NCORR 


0,  PHASE1  SUBROUTINE  AUTOMATICALLY  CORRECTS  THE 
DIGITIZED  DATA  FOR  MONI TONIC  ALL Y  INCREASING 
TIME. 

1,  THE  DIGITIZED  DATA  WILL  BE  HAND  CORRECTED  ON  THE 
KEYPUNCH  AFTER  THE  PLOT  OF  THE  DATA  IS  OBSERVED. 
FOR  THIS  CASE  A,B,C,D  ARE  SCALING  FACTORS  TO 
CONVERT  THE  DIGITIZED  DATA  SO  THAT  THE  PLOT  WILL 
BE  TO  THE  IDENTICAL  SCALE  AS  THE  ORIGINAL 
RECORD,  I.E.  COUNTS  PER  INCH  OF  PLOT. 


A  *  SCALING  FACTOR  TO  CONVERT  TIME  DATA  TO  PLOT  SCALE 

B  *  VALUE  OF  SCALED  TIME  DATA  FOR  TIME  EOUALS  ZERO 

C  *  SCALING  FACTOR  TO  CONVERT  ACCELERATION  DATA  TO  PLOT  SCALE 

D  «  VALUE  OF  SCALED  ACCELERATION  DATA  FOP  TIME  EOUALS  ZERO 


^*t** ************************************  ************************* 

COMMON  ACCEL ( 5500 ), T I  ME ( 5500 ), T I TLE ( 20 ),VEL( 3000 ),DISP( 3000), LAST 

COMMON/PLTBUF/IBUFdOOO) 

COMMON  /ORMS/  WTS ( 275  ), NUMBER 

DIMENSION  ACCEL1(5500),ACCEL2(5500),ACCEL3(5  5  00),ACCEL4( 55  00), 
1  ACC EL6( 5500 ), ACCE L7 ( 5500 ), ACCEL fi( 5500), ACCEL  9 (55 00) 

DIMENSION  ATIME(5500),BTIME(5  500),CTIME(5500),VEL1(300J, 
1  0  ISP  1(300), ATEMPl 5500 ), ACCEL5 ( 3000 ), TIN  ST ( 3000 ) 

EQUIVALENCE  <ACCEL,ACCEL1,ACCEL2»ACCEL3,ACCEL4,ACCEL6»ACCEL7, 
1  ACCEL8,ACCEL9) 

EQUIVALENCE  (ACCEL5,VEL)  ,  ( TIME, AT IME, BTIME , CTI ME, ATEMP ) 

EQUIVALENCE  (  D  ISP1 ,  VEL1 )  ,  (LAST, NOD,  (DISP,TINST) 

EQUIVALENCE  (X.VEL)  ,  (Y,DISP) 

READ  (1,1030)  XRED.YRED.DACCEL 
WRITE  (3,1040)  XRED,YRED,DACCEL 

10  READ  (1,1000)  NPHASE,NCORR,A,B,C,D 
WRITE (3, 1010)  NPHASE»NCORR,A,B,C,D 

IF(NPHASE  .EO.  1)  CALL  PH AS  El ( NCORR, A, B, C, D, XRED, YRED ) 
IF(NPHASE  .EO.  2)  CALL  PHASE2 ( XRE D, YRED, D ACCE L  ) 

1000  FORMAT  (2I5,4F10.6) 
1010  FORMAT  (/// 

17H  NPHASE  NUMBER  =  ,15// 

17H 
17H 
17H 
17H 
17H 
1030  FORMAT  (3F10.3) 

1040  FORMAT  (1H1,10X,7HXRED  =  , F 10 . 3, 5X, 7HYRED  *  » F 1 0 . 3, 9HD ACCEL 
.F10.3) 
END 


NCORR 

=    ,15// 

A 

=    ,F10.6// 

B 

=    ,F10.6// 

C 

=    ,F10.6// 

D 

«    ,F10.6//) 

DAI 
DAI 
DAI 

DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 


DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
DAI 
OAI 
DAI 
DAI 
DAI 
DAI 


003 
004 
005 

006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 


037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 
058 
059 

060 
061 
062 
063 
064 
065 
066 
067 
068 
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SUBROUTINE  PHASE1(NC0RR,A,B,C,D,XRED,YRED) 
IMPLICIT  REAL*4  (A-H.O-Z) 

AN  EOF  CARD  OR  MARK  (FOR  MAG  TAPE)  SIGNALS  END  OF  ACCELOGPAM  OP 
FIXED  TRACE  (F.  T.)  DATA.   IF  THERE  IS  NO  F.  T.  DATA,  PLACE 
TWO  (2)  EOF  CARDS  (MARKS)  AT  END  OF  ACCELOGRAM  DATA. 
IF  THREE  (31  EOF'S  ARE  ENCOUNTERED  PER  COMPONENT,  PROGRAM  STOPS; 

COMMON  ACCEL(5  5OO),TIME(5500),TITLE(20),VEL(3OOO),DISP(3OO0),LAST 
COMMON/PLTBUF/IBUFdOOO) 
DIMENSION  X(  1),  Yd  ) 
EQUIVALENCE  (  X  ,  VEL  )  #  <  Y,  DI  SP  ) 


10  READ  (  1,2050, END=20)  TITLE 

GO  TO  30 
20  WRITE  (3,2030) 

WRITE  (3*4000) 

STOP 
30  WRITE  (3,2060)  TITLE 


READ  (1,1050)  NPLOT,NPUNCH,  INPUTP , S I Z E , XLE N , SC AL E T, SC AL E A 

WRITE  (3,3020) 

WRITE  (3,3010)  NPLOT,NPUNCH, INPUTP, SIZE, XL  EN, SC ALET, SC AL E A 

NPLOT  *  *  0,  NO  PLOT  IS  DESIRED 

=  1,  DIGITIZED  DATA  WILL  BE  PLOTTED 

"  2,  BASELINE  CORRECTED  DATA  WILL  BE  PLOTTED 

NPUNCH  *  *  0,  NO  CARDS  WILL  BE  PUNCHED 

=  1,  DIGITIZED  DATA  WILL  BE  PUNCHED  ON  CARDS 

=  2,  BASELINE  CORRECTED  DATA  WILL  BE  PUNCHED  ON  CARDS 

INPUTP  *   =  1,  DATA  READ  FROM  PUNCHED  CARDS 
=  2,  DATA  READ  FROM  MAG  TAPE 

SIZE  =  VERTICAL  DISTANCE  (IN  INCHES)  FROM  HIGHEST  PEAK  TO 
LOWEST  VALLEY  OF  RECORD  FROM  WHICH  RAW  DATA  IS  DIGITIZED. 
SIZE  MUST  NOT  EXCEED  TEN  INCHES. 

XLEN  *  LENGTH  OF  TIME  AXIS  (IN  INCHES)  FROM  TIME=0  TO  MAX  TIME 

IN  RECORD 
XLEN  SHOULD  BE  EOUAL  TO  ACTUAL  RECORD  LENGTH 
FROM  WHICH  DATA  IS  DIGITIZED 


IF  (INPUTP  .EO.  1)  WRITE  (3,1010) 

IF  (INPUTP  .EO.  2)  WRITE  (3,1020) 

IF  (INPUTP  .NE.  2)  INPUTP  =  1 

IF  (NPLOT  .EO.  0)  GO  TO  40 

IF  (NPLOT  .EO.  1)  GO  TO  40 

WRITE  (3,1030)  SIZE, XLEN 

40  IF  (NPUNCH  .EQ.  1)  WRITE  (3,1070) 
IF  (NPUNCH  .EO.  2)  WRITE  (3,1060) 
IF  (NPUNCH  .EO.  1  .OR.  NPUNCH  .EO.  2)  PUNCH  2050,  TITLE 

READ  IN  TIME-ACCEL  DATA  FROM  DIGITIZED  RECORDS 

NT  =  -1 

IF  (INPUTP  .EO.  1)  GO  TO  85 

MAG  TAPE  READING  ROUTINE 

CALL  TRK010 


PHI  001 

PHI  002 

PHI  003 

PHI  004 

PHI  005 

PHI  006 

PHI  007 


PHI  009 
PHI  010 


PHI  013 


PHI  016 


PHI  016 


PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PH] 
PHI 


020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
CAP 
049 
050 
051 
052 
053 
054 
055 
056 


PHI  058 

PHI  059 

PHI  060 

PHI  061 

PH]  062 

PHI  063 

PHI  064 

PHI  065 

PHI  066 
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50 
60 
70 
80 

85 
90 


100 

110 
120 


130 
140 


150 


160 

170 
180 


190 
2  00 


REWIND  7 

NT  =  0 

NT  =  NT+  1 

IF  (NT  .LT.  2998)  GO  TO  70 

WRITE  (3,2080)  TIME<2998» 

GO  TO  380 

READ  <7,2040,END=80)  TIME(NT),  ACCEL(NT) 

GO  TO  50 

LAST  =  NT 

GO  TO  120 

PUNCHED  CARD  READING  ROUTINE 

NT=NT+1 

IF  (NT  .LT.  749)  GO  TO  100 

LAST  =  4*NT 

WRITE  (3,2070)  TIME(LAST) 

STOP  1 

READ  (1*1000, END=110)  (  T I  ME  (  NT  *4  +  I )  ,  ACCEL  (  NT  *4  +  I  ) ,  I  =  1 ,  4  ) 

GO  TO  85 

LAST  =  4*NT 

CONTINUE 

IF  (ACCEL(LAST)  .EO.  0.0)  LAST  =  LAST-1 

IF  (ACCEL(LAST)  .EO.  0.0)  LAST  =  LAST-1 

IF  (ACCEL(LAST)  .EO.  0.0)  LAST  =  LAST-1 

IF  (NPUNCH  .EO.  1)  PUNCH  1040,  (TIME(I),  ACCEL(I),  1=1, LAST) 

WRITE  (3,1090)  LAST 

WRITE  (3,1040)  (TIME(I),  ACCEL(I),  1=1, LAST) 

IF  (NCORR  .EO.  1)  GO  TO  150   ' 

CHECK  DATA  FOR  CONTINUOUSLY  INCREASING  TIMES 

DO  140  M=2,LAST 

IF  (TIME(M)  -TIME(M-D)  130,140,140 

TIME(M)=TIME(M-1) 

CONTINUE 

READ  IN  FIXED  TRACE  DATA  (IF  ANY) 

NX  =  -1 

IF  (INPUTP  .EO.  1)  GO  TO  180 

IF  (NT  .GE.  2998)  GO  TO  280 


CALL  TRK010 

REWIND  7 

NX  =  0 

NX=NX+1 

READ  (7,2040)  X(NX),Y(NX) 

IF  (E0F(7)»  170,160 

NFXTRC'NX 

GO  TO  200 

NX=NX+1 

READ  (  1, 1000,END=190) 

GO  TO  180 

NFXTRC=4*NX 

CONTINUE 

IF  (NFXTRC  .LE 

( Y(NFXTRC ) 

(Y(NFXTRC) 

( Y(NFXTRC) 

(NPUNCH  .EO. 


(X(NX*4+I),  Y(NX*4+I),  1=1,4) 


IF 
IF 
IF 
IF 


1) 

,E0. 

,EQ. 

,E0. 

1) 


GO  TO  280 
0.0)  NFXTRC 
0.0)  NFXTRC 
0.0)  NFXTRC 
PUNCH  1040, 

WRITE  (3,2000)  NFXTRC 

WRITE  (3,1040)  (X(I),  Y(I),  1=1, NFXTRC) 


NFXTRC 
NFXTRC 
NFXTRC 


(X(I),Y(I), 1=1, NFXTRC) 


PHI 

067 

PHI 

068 

PHI 

069 

PHI 

070 

PHI 

072 

PHI 

073 

PHI 

076 

PHI 

077 

PHI 

078 

PHI 

079 

PHI 

080 

PHI 

081 

PHI 

083 

PHI 

084 

PHI 

085 

PHI 

088 

PHI 

089 

PHI 

090 

PHI 

091 

PHI 

092 

PHI 

093 

PHI 

094 

PHI 

095 

PHI 

096 

PHI 

097 

PHI 

098 

PHI 

099 

PHI 

100 

PHI 

101 

PHI 

102 

PHI 

103 

PHI 

104 

PHI 

105 

PHI 

106 

PHI 

107 

PHI 

106 

PHI 

109 

PHI 

110 

PHI 

111 

PHI 

112 

PHI 

113 

PHI 

114 

PHI 

115 

PHI 

116 

PHI 

117 

PHI 

118 

PHI 

119 

PHI 

120 

PHI 

121 

PHI 

122 

PHI 

125 

PHI 

126 

PHI 

127 

PHI 

128 

PHI 

129 

PHI 

130 

PHI 

131 

PHI 

132 

PHI 

133 
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210 


220 
230 


240 

250 
260 
270 
280 


290 


300 


310 


320 


330 
340 

350 


IF  (NPLOT  .EC  1)  GO  TO  380 

SMOOTH  FIXED  TRACE  DATA 

NFTM1  =  NFXTRC-1 
DO  210  I=2»NFTM1 
Y(I)  =  Y(I-l)/4.0  +  Y(I)/2.0  +  Y(I+l)/4.0 

DEDUCT  FIX  TRACE  FROM  ACCELEROGRAM 

IF     (X(NFXTRC)     .LT.     TIME(LAST))     X(NFXTRC)     "    TIMF(LAST) 

DO    220    J*1,LAST 

IF     (TIME(J)     .GT.     XIDI    GO    TO    230 

ACCEM  J)=ACCEL(  J)-Y(l) 

JJ  =  J 

DO  270  I*1,NFXTRC 

DO  260  J=JJ,LAST 

IF  (TIME(J)  .GT.  X(I  +  D)  GO  TO  270 

IF  (X(  I+ll-Xd)  )  250,250,240 

ACCEL(J)*ACCEL(J)-Y(I)-(TIME(J>-X(I))*(Y(I+1)-Y(I>J/<X(I+1)-X<I)) 

GO  TO  260 

ACCEL(J)  =  ACCELU)-Y(I) 

CONTINUE 

JJ  =  J 

CONTINUE 

WRITE  (3,2090) 

WRITE  (3,1040)  (TIME(I),  ACCEL(I),  1=1, LAST) 

IF  (NCORR  .EC  1)  GO  TO  380 

IF  (NPUNCH  .EC  1)  GO  TO  360 

ADJUST  DATA  FOR  ZERO  BASELINE  AND  BEGINNING  TIME  =  0.0 

IF  (SCALET  .EC  0.0)  SCALET  =  1.0 

IF  (SCALEA  .EC  0.0)  SCALEA  =  1.0 

DO  290  1-2, LAST 

TIME(I)*(TIME(I)-TIME(1))*SCALET 

TIME(1)=0.0 

AREA  =  0.0 

DO  300  1=2, LAST 

DT  =  TIME( I)-TIME( 1-1) 

AREA  =  AREA+(ACCEL(I)+ACCEL(I-1) )*DT/2.0 

ADJUST  =  AREAZTIME(LAST) 

WRITE  (3,3000)  ADJUST 

DO  310  1*1, LAST 

ACCEL(I)  =(ACCEL(I)  -  ADJUS T ) *SC ALE  A 

IF  (NFXTRC  .GT.  1)  GO  TO  340 

AREA  =  0.0 

DISP(l)  =  0.0 

TLAST  =  TIME(LAST) 

DO  320  1=2, LAST 

DT  =  TIME(I)-TIME(I-1) 

DISP(I)=DISP(I-1)+AREA*DT+DT*DT/6.*(2.*ACCEL( 1-1 ) +ACCE L ( I ) ) 

AREA=AREA  +  DT/2.*(ACCEL(I)+ACCEL(I-U) 

A=6./TLAST*DISP(LAST)/TLAST-2./TLAST*AREA 

B»6./TLAST*AREA/TLAST-2./TLAST*6./TLAST*DISP(LAST)/TLAST 

DO  330  1=1, LAST 

ACCEL(I)=ACCEL( I )- A-B*TIME ( I ) 

WRITE  (3,1080) 

WRITE  (3,1040)  (TIME(I),  ACCEL ( I ) *  I«1,LAST) 

IF  (NPUNCH  .NE.  2)  Gfl  TO  360 

PUNCH  BASELINE  CORRECTED  DATA 

WRITE  (3,1060) 

PUNCH  1040,  (TIME(I),  ACCEL(I),  1=1, LAST) 

WRITE  (3,2010) 


PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 

PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 


136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 

166 
167 
16P 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
IPO 
161 
182 
183 
184 
165 
166 
167 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
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360 


370 


360 


390 


9998 


9999 


400 


410 


420 


430 


440 


WRITE  (3,1040)  (TIMEU),  ACCEL(I),  1*1,  LAST) 

CONTINUE 

IF  (NPLOT  .EG.  0)  GO  TO  450 

WRITE  (3,2020) 

WRITE  (3,1040)  (TIME(I),  ACCEL(I),  1=1, LAST) 

XMIN  =  TIME(l) 

TIME(LAST+1I  =  XMIN 

XMAX  =  TIME(LAST) 

SCALX  =  (  XMAX-XMIN  WXLEN 

TIME(LAST+2)  *  SCALX 

YMIN  =  ACCEL(l) 

YMAX  =  ACCEL(l) 

00  370  1=2, LAST 


YMAX  = 
YMIN  = 


IF  (ACCEL(I)  .GT.  YMAX) 

IF  (ACCEL(I)  .LT.  YMIN) 

CONTINUE 

ACCEL(LAST+1)  =  YMIN 

ACCEHLAST  +  2)  =  ( YMAX-YMIN ) /S I ZE 

SCALY  =  (YMAX-YMIN) /SIZE 

WDY  *  SIZE+0.5 

IF  (WDY  .GT.  10.0)  WDY  =  10.0 

PLOT  TIME  -  ACCELERATION  DATA 


ACCEL(I) 
ACCEL(I) 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GO  TO 


PLOT  (0.,-12.,-3) 

PLOT  (0., 5.5,-3) 

SYMBOL  (0.,0.,1.,3,0.»-1) 

(TIME .ACCEL, LAST, A, B,C»D) 

(X, Y,NFXTRC,A,B,C,D> 

(0. 5, 6. 0,0. 25, TITLE, 0., 80) 


PLOTTR 

PLOTTR 

SYMBOL 

440 


CALL  LINE  (TIME, ACCEL, LAST, 1, J, ISYM) 
IF(NPL0T.EQ.2)  GO  TO  440 
CALL  LINE  (X,Y,NFXTRC,1,J,ISYM) 
CALL  PL0T(20. 0,0. 0,450) 


450  CONTINUE 


1000  FORMAT  (4(2F10.0)» 

1010  FORMAT  ( /, 10X,48HTIME  -  ACCELERATION  DATA  READ  FROM  PUNCHED  CARDS 

1) 

1020  FORMAT  ( / ,  10X , 4 3HT I M E  -  ACCELERATION  DATA  READ  FROM  MAG  TAPE/) 


PHI 

204 

PHI 

205 

PHI 

206 

PHI 

207 

PHI 

208 

PHI 

209 

PHI 

210 

PHI 

211 

PHI 

212 

PHI 

213 

PHI 

214 

PHI 

215 

PHI 

216 

PHI 

217 

PHI 

218 

PHI 

219 

PHI 

220 

PHI 

221 

PHI 

222 

PHI 

223 

PHI 

224 

PHI 

225 

PHI 

226 

PHI 

227 

PHI 

229 

PHI 

230 

PHI 

231 

PHI 

232 

PHI 

233 

LX) 

CALY) 

PHI 

238 

PHI 

240 

PHI 

241 

PHI 

242 

PHI 

243 

PHI 

244 

PHI 

245 

PHI 

246 

PHI 

247 

PHI 

248 

PHI 

249 

PHI 

250 

PHI 

251 

PHI 

252 

PHI 

253 

PHI 

254 

PHI 

255 

PHI 

256 

PHI 

257 

PHI 

258 

PHI 

259 

PHI 

260 

PHI 

261 

PHI 

263 

PHI 

264 

PHI 

266 

PHI 

267 

CARDS   PHI 

268 

PHI 

269 

/)       PHI 

270 
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1030  FORMAT  ( /,  10X, 4  1HB A S E I INE  CORRECTED  DATA  WILL  BE  PLOTTED  -,F5.1, 

116H  INCHES  HIGH  AND,F5.1,12H  INCHES  LONG) 
1040  FORMAT  (4<2F10.3>> 
1050  FORMAT  (  3I5,4F10.0) 

1060  FORMAT  ( 10X, 48HBAS E L I NE  CORRECTED  DATA  WILL  BE  PUNCHED  ON  CARDS/) 
1070  FORMAT  ( 10X, 56HDI G I T I  ZED  DATA  WILL  BE  PUNCHED  ON  CARDS  EXACTLY  AS 

1F0LL0WS/) 
1080  FORMAT  < IX, / , 10X, 3 1 HB ASE L INE  CORRECTED  DATA  FOLLOWS/) 
1090  FORMAT  (10X,21HN0  OF  DATA  POINTS  ARE ,  I  5 , / , 1  OX , 38HDAT A  AS  IT  APPEAR 

IS  FROM  INPUT  FOLLOWS  //) 
2000  FORMAT  (/10X,28HN0  OF  FIXED  TRACE  POINTS  ARE»I5,34H  AND  APPEARS  F 

10M  INPUT  AS  FOLLOWS//) 
2010  FORMAT  ( IX , / , 1  OX, 20HPUNCHED  DATA  FOLLOWS//) 

2020  FORMAT  ( IX, / / , 10X, 20HPL0TTED  DATA  FOLLOWS//) 

2030  FORMAT  ( 2X , / / , 10X, 3 2HN0  MORE  DATA,  PROGRAM  TERMINATES) 

2040  FORMAT  (4X,2(F6.0)  ) 

2050  FORMAT  (20A4) 

2060  FORMAT  <1H,20A4,//) 

2070  FORMAT  ( IX , / , 1  OX, 5 8H I NPUT  DATA  EXCEEDED  ARRAY  SIZE  -  REMOVE  DATA 

1EY0ND  TIME  =,F10.3»18H  AND  RERUN  PROGRAM//) 
2080  FORMAT  < IX, / , 10X, 5 7HI NPUT  DATA  EXCEEDED  ARRAY  SIZE  -  DATA  TPUNCAT 

ID  AT  TIME  =,F10.3, /, 10X, 42HFIXED  TRACE  DATA  -IF  ANY-  WILL  NOT  BE 

2SED//) 
2090  FORMAT  <  IX  ,  /  ,  1  OX, 4  5HSUBTR  AC  TE  D  FIXED  TRACE  DATA  FROM  ACCELEROGRAM/ 


3000 
3010 
3020 

4000 


FORMAT 

) 

FORMAT 

FORMAT 

FORMAT 


(1X,/,9HADJUST  =  ,F10.3,/J 

<10X,I1,4X,I1,5X,I1,5X,4F10.3W) 

(1X,/,10X,5HNPLOT,6HNPUNCH,6HINPUTP,6X,4HSIZE,6X,4HXLEN,4X, 
6HSCALET,4X,6HSCALEA) 

FORMAT  (10X,31HN0RMAL  TERMINATION,  END  OF  DATA) 
RETURN 
END 
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PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 


PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 
PHI 


271 
272 
273 
274 
275 
276 
277 
27e 
279 

2eo 

281 
2P2 

2P3 


PHI  2P4 
PHI  2P5 
PHI  2B6 


289 
290 
291 
292 
203 
294 
295 
296 
297 
298 
299 


PHI  300 
PHI  301 


SU3R0UTINE  TRK010 

*****  THIS  SUBROUTINE  READS  DATA  FROM  AN  ELECTRAK  DATA  TAPE  AND  OUTPUTS 
ON  TAPE  IN  DATA  WHICH  IS  IN  A  FORK,  ACCESSIBLE  BY  PHASE1  PROGRAM. 

THIS  PROGRAM  IS  A  PATTERN  MATCH  PROCEDURE,  PROBABLY 
BETTER  SUITED  TO  WRITING  IN  SN0B0L4.   THE  TARGET  PATTERN  IS 

ZZZZZZZNNNNSNNNNNSNNNNNCCCCCCCCCCCCCCCCCCCCZZZZ... 

WHERE   Z  IS  ANY  CHARACTER 

N  IS  ANY  DECIMAL  DIGIT 

S  IS  A  SIGN  (+  OR  -) 

C  IS  A  SET  DF  CHARACTERS  ASSOCIATED  WITH  THE  NUMBER 
THE  GOAL  IS  TO  OUTPUT  RECORDS  OF  THE  ENTIRE  36  CHARACTER 
RECORD  AND  THE  COMMENTS  BETWEEN  THIS  AND  THE  PPECEEDING 
PATTERN.   THESE  RECORDS  ARE  OUTPUT  ON  TAPE7. 

IMPLICIT  INTEGER  (A-Z) 

L0GICAL*1  JBUM6D0D),  J  PLUS  (  4  )  ,  NPL  US  ,  JMINUS  (  4  )  ,  MINUS,  CHR  (  4  ) 

LOGICAL*!  LPLUS(4),LMINUS(4),CHR2(4) 

DIMENSION  I3UF(1500) 

EQUIVALENCE  (IPLUS,JPLUS>>CIMINUS»JMINUS>,(INT,CHR) 

EQUIVALENCE  (KPLUS,LRLUS),(<MINUS,LMINUS),(INT2,CHR2> 

DATA  IPLUS/1H+/,IMINJS/1H-/,L3UF/1260/ 

DATA  CHRWRD/4/, END/11/, NEXT/6/, BEGIN/4/ 

DATA  IN/6/, OUT/7/, PRT/3/ 

SET  UP  POINTERS  AND  STUFF 


LAST=0 

REWIND 


OUT. 


D-7 


MINUS= JMINUS ( 1 ) 
NPLUS= JPLUS(l) 
KP1US  =  0 
KMINUS»0 

LPLUSU)-JPLUS(l) 
IMINUS(4)=JMINUS(1) . 
NPRU»0 

WRITE  (PRT>1) 
1  FORMAT  (1H1) 

READ  A  DATA  BLOCK  AND  MOVE  TO  CHARACTER  ARRAY 

10  READ  UN,]  1,END  =  998,ERR  =  996)  ( IBUF ( I ) , 1*1, LbUF ) 

11  FORMAT  U0C126A4)) 
NPRU=NPRU+1 

20  CONTINUE 

LENGTH=LBUF 

00    30    1*1, LENGTH 

INT=IBUF(I ) 

DO    40    J=1,CHRWR0 

L AST*LAST+1 

J8UFCLAST)»CHR( J) 
40  CONTINUE 
30  CONTINUE 

P0S  =  1 

INT'O 

INT2=>0 

SEARCH  THROUGH  8L0CK  FOR  TARGET  PATTERN 

50  CONTINUE 

IF  (POS+END  .GT.  LAST)  GO  TO  100 
CHR2m  =  JBUF(P0S  +  NEXT> 
CHR(4)=JBUF(P0S) 
IFU(INT.EU.KPLUS).OR.(INT.EQ.KMINUS)> 

.ANO.  ( (INT2.EQ.KPLUS)  .OR.  ( I NT2 . EQ. KMINUS  )  )  ) 
GO  TO  60 
P0S*P0S+1. 
GO  TO  50 

PATTERN  HAS  BEEN  FOUND 

60  CONTINUE 

J=POS-BEGIN 

K=POS+END 

WRITE  (OUT, 70)  < JBUF(I),I*J,K> 
70  FORMAT  (16A1) 

WRITE  <PRT,80)  < J3UF <  I ),  I  = J,K  ) 
80  FORMAT  UX,16A1) 

P  0  S  =  K.  ♦  1 

GO  TO  50 

NOT  ENOUGH  DATA  FOR  THE  NEXT  PATTERN  MATCH,  REPACK  DATA 

100  CONTINUE 
J'=0 

DO  110  I=POS,LAST 
J  =  J  +  l 
JBUF (J )= J3UF ( I ) 

110  CONTINUE 

LAST=J  ^ 

GO  TO  10 

PARITY    ERROR    HAS    BEEN    DETECTED 
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996  CONTINUE 
NPRU=NPRU+1 

WRITE  (?RT,997)  NPRU 

997  FORMAT  (40H  **+  PARITY  ERROR  DETECTED  IN  PRU  NUMBER/ I 5, 4H  *+*) 
GO  TO  20 

C 

C      END  OF  FILE  OR  ERROR  HAS  BEEN  DETECTED 

C 

998  CONTINUE 
WRITE  (PRT.999) 

999  FORMAT  (29H  ***  END  OF  FILE  DETECTED  ***) 
REWIND  OUT 

RETURN 

END 
C 
C 
C 

c 


SUBROUTINE  PLOTTR  ( X , Y, L AST* A, B, C » D )  PLR  001 
IMPLICIT  REALM  (A-H.O-Z) 

PLP  002 

DIMENSION  X( 3000), YI3000I  PLR  003 

PLR  004 

X(1)=A*X(1)-B  PLR  005 

Y(1)=C*Y(1)-D  PLR  006 

CALL  PLOT  (X(1)»Y(1),3>  PLR  007 

DO  1  1=2, LAST  PLR  008 

X(  I)*A*X(I)-B  PLR  009 

Y(  I  )=C*Y(I )-D  PLR  010 

CALL  SYMBOL  ( X ( I), Y (  I  )  ,0. 1, 74, 0. 0,-1 )  PLR  Oil 

RETURN  PLR  012 

END  PLR  013 


SUBROUTINE  PHASE2 ( XR ED, YRE D, D ACCE L )  PH2  001 
IMPLICIT  REALM  (A-H.O-Z) 

C  PH2  002 

C  PH2  004 

C       SUBROUTINE  PHASE2  IS  A  COMPUTER  PROGRAM  WHICH  READS  DIGITIZED  PH2  005 

C       ACCELEROGRAM  DATA  AND  PROCESSES  THIS  DATA  IN  ORDER  TO  ELIMINATE  PH2  006 

C       ERRORS  IN  RECORDING  AND  DIGITIZING  THE  ACCELEROGRAM.  PH2  007 

C       THE  CORRECTED  ACCELOGRAM  IS  NUMERICALLY  INTEGRATED  TO  OBTAIN  THE  PH2  008 

C       CORRESPONDING  VELOCITY  AND  DISPLACEMENT.  PH2  009 

C       THESE  QUANTITIES  ARE  NOW  ACCEPTABLE  FOR  USE  IN  DETERMINING  PH2  010 

C       THE  DFSIGN  SPECTRA  FOR  THE  EARTHQUAKE.  PH2  Oil 

C       FINALLY,  A  PLOT  OF  THESE  QUANTITIES  WILL  BE  PLOTTED  IF  DESIRED.  PH2  012 

C  PH2  013 

C      ***♦♦*♦********♦**************#**♦*********+********♦****«********  pn2  014 

C  PH2  015 
COMMON  ACCEL ( 5500 ), T I  ME ( 5500 ), T I TLE ( 20 ),VEL( 3000 ),DISP( 3000), LAST 
COMMON/PLTBUF/IBUFdOOO) 

COMMON  /ORMS/  WTS ( 275  ), NUMBER  PH2  0]7 

DIMENSION  ACCEL1(5500),ACCEL2(5500), ACCEL3 ( 5500 ) , ACC EL4 ( 5500 ) ,  PH2  018 

1  ACCEL6(5500), ACCEL7( 5500), ACCEL  8 ( 5500 ) , ACCEL9(5500)  PH2  019 

DIMENSION  ATIME(5500),BTIME(5500),CTIME(5500),VEL1(300),  PH2  020 

1  DISP1  (300), ATEMP(5500),ACCEL5(3000),TINST(3000)  PH2  021 

EQUIVALENCE  ( ACCEL , ACCEL1, ACCEL2, ACCEL3, ACCEL4, ACCEL6, ACCEL7, ACCEL  PH2  022 

18,ACCEL9)  PH2  023 

EQUIVALENCE  ( ACCEL  5, VEL ) ,  ( TIME, ATIME, BTIME, C TIME , ATEMP )  PH2  024 

EQUIVALENCE  (  D  I  SP1 ,  VEL1 )  »  (LAST, NOD,  (DISP,TINSTI  PH2  025 
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READ  (1,1090)  TITLE 
WRITE  (3,2000)  TITLE 


T  =  NATURAL  PERIOD  OF  ACC*ELEROMETER  IN  SEC. 

CD  =  DAMPING  COEFFICIENT  OF  ACCE LEROMETER  IN  PER  CENT  OF  CRITICAL 
SCALET  *  TIME  SCALING  FACTOR  TO  CONVERT  TIME  DATA  TO  SECONDS 
SCALEA  «  ACCELERATION  SCALING  FACTOR  TO  CONVERT  ACCELERATION 

DATA  TO  UNITS  OF  GRAVITY 
NPLOT  *  =  0,  NO  PLOT  IS  DESIRED 

=  It    PLOT  ACCELERATION  ONLY 

=  2,  PLOT  ACCEL, VELOCITY,  AND  DISPLACEMENT 

»  3,  PLOT  ALL  THE  ABOVE  AND  THE  ORMSBY  FILTER  CORRECTION 

=  4,  PLOT  ORMSBY  FILTER  ONLY 


READ  (1,1030)  T, CD, SCALET, SCALE  A, NPLOT, I  SHORT, NEWWAY,N2W AY, N3WAY, 
.N4WAY,N5WAY,N6WAY 

WRITE  (3,4000) 

WRITE  (3,1060)  T, CD, SCALET, SCALE  A, NPLOT, ISHORT, NE WWAY, N2WAY, N3WAY, 
.N4WAY,N5WAY,N6WAY 

READ  IN  TIME-ACCEL  DATA  FROM  DIGITIZED  RECORDS 
CALL  REDATA  (SCALET) 

CONVERT  DATA  TO  SEC  AND  CM/SEC/SEC  (ACCEL1) 

CALL  DATALT  ( SCALE T, SCALE  A ) 

FROMIN  «    0.07 
FROMAX  =  25.0 

N01  =  MAXIMUM  NUMBER  OF  0.01  SECOND  INTERVALS  ♦  1 

Nl  =  LAST 

N01  =  <TIME(LAST)+0.009)*100.0 

LAST  =  N01 

N02  =  (LAST  +  D/2 

N  =  N02  +  9 

N2  =  N/10 

N2P1  =  N2+1 

N2M1  =  N2  -  1 

N02  =  10  *  (N2-1)  +  1 

NN02  =  N02-8 

WRITE  (3,2019) 

WRITE  (3,2020)  N01 , N02,N1, N2 

STORE  UNEQUALLY  SPACED  TIME  DATA  TEMPORARILY  IN  DISP  ARRAY. 

DO  10  1*1, Nl 
10  DISPd  )  =  TIME(I) 

OBTAIN  INTERPOLATED  VALUES  (ACCEL2)  AT  0.01  SEC  TIME  INCREMENTS 

DELT=0.01 

CALL  EOLSPC  (DELT,N1) 

IF  (N5WAY  .EQ.  1)  GO  TO  18 
IF(N5WAY  .EQ.  2)  GO  TO  40 
IF  (N6WAY  .EQ.  1)  GO  TO  18 
GO  TO  20 
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18  NPASS  =  5 

CALL  HORIZ(NPASS) 
20  CONTINUE 

IF  ACCELEROGRAM  WAS  NOT  RECORDED  BY  AN  ACCEL EROGRAPH,  00  NOT 
LOW-PASS  FILTER 
IF  (CD  .LE.  0.0  .OR.  T  ,LE.  0.0)  GO  TO  40 

APPLY  ORMSBY  LOW-PASS  FILTER  (ACCEL3) 

FSUBC  =  FRQMAX 
FSUBT  =  FSUBC+2.0 
DELT=0.01 
ISYM  =  1 

NSHORT    =    1 

CALL    ORMSBY    ( IS YM» F SUBC , FSUBT, DE LT, ACCEL3, NSHORT ) 

NSHORT    =    0 

DISCARD  EVERY  OTHER  POINT  OF  SMOOTHED  CURVE 

L*l 

DO  30  1=1, LAST, 2 
ACCEL4(L)  =  ATEMP(I) 
BTIME(L)=(L-1)*0.02 
30  L*L  +  1 

BTIME(L)=(L-1)*0.02 

EQUALLY  SPACED  POINTS  ARE  NOW  0.02  SEC  APART  (ACCEL4) 

WRITE  (3,4010) 

WRITE  (3,2060) 

WRITE  (3,1010)  (TIME(I),ACCEL(I)»I=1,8) 

WRITE  (3,1010)  (TIME(I),ACCEL(I)»  I  =  NN02,N02) 

GO  TO  70 
10  L  =  1 

DO  50  1=1, LAST, 2 

ACCEL4(L)=  ACCEL2U) 

BTIME(L)=(L-1)*0.02 
50  L=L*1 

BTIME(L)=(L-1)*0.02 
60  CONTINUE 

IF(N5WAY  .EO.  2)  N5WAY  =  1 
WRITE  (3,4010) 
WRITE  (3,2080) 

WRITE  (3,1010)  (TIME(I),ACCEL(I),I=1,8) 
WRITE  (3,1010)  (TIME(I),ACCEL( I ) , I=NN02, N02 ) 
70  CONTINUE 

IF  (N2WAY  .EO.  8)  GO  TO  72 
GO  TO  78 

72  DO  73  1=1, N02 

73  ACCEL(I)    =    ACCELdi    -    OACCEL 

DO    74    I=1>N02 

74  DISP(I)    =    ACCEL(I) 
GO    TO    405 

78    IF     (T    .LE.    0.0    .OR.    CD    .LE.    0.0)    GO    TO    110 

CORRECT  FOR  INSTRUMENT  RESPONSE  TO  OBTAIN  ABSOLUTE  GROUND  ACCEL. 

90  DELT  =  0.02 

WRITE  (3,1040)  T,CD 
WO  =  6.28318531/T 
CD  =  CD+0.01 
NXM  =  N02-1 
DO  100  1=2, NXM 
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150 
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151 
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152 
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D1=(ACCEL4(I+1)-ACCEL4(I-1)  )/(2.0*DELT) 

D2=(ACCEL4(I-1)-2.0*ACCEL4(I)+ACCEL4(I+1))/DELT**2 
100  TIN$T(I)=(D2  +  2.0*W0*CD*D1  +  ACCEL4 ( I ) *W0**2 ) /W0**2 

TINST(l)  =  ACCELM1) 

TINSKN02)  =  ACCEL4(N02) 

00  105  1=1, N02 
105  ACCEL(I)  *  TINST(I) 

WRITE  (3,1050) 

WRITE  (3,20601 

WRITE  (3,1010)  (TIHE(I),ACCEL(I),I=1,8) 

WRITE  (3,1010)  (TIME(  I ) , ACC EL ( I ) , I  =  NN02, N02 ) 

GO  TO  120 
110  WRITE  (3,2010) 

120  CONTINUE 

LEAST  SOUARE  SMOOTHED  CURVE  AND  SAVE  (ACCEL5) 

NPASS  =  1 


IF  (NEWWAY  .EO.  1)  GO  TO  130 

IF  (N2WAY   .EO.  1)  GO  TO  130 

IF  (N3WAY   .EO.  1)  GO  TO  130 

IF  (N4WAY   .EQ.  1)  GO  TO  130 

IF  (N4WAY 

IF  (N5WAY 

IF  (N6WAY 

GO  TO  150 

NPASS  =  6 

CALL  HORIZ 

GO  TO  170 

CALL  LESTSO  ( ACCEL  5, NPASS ) 

IF  (N4WAY  .EO.  5)  GO  TO  278 

CONTINUE 


130 


150 


160 


EO.  5)  GO  TO  150 
.EO.  1)  GO  TO  270 
•EO.  1)  GO  TO  190 


(NPASS) 


L02  =  N02  +  1 
170  DO  180  1=1, L02 
180  ACCEL(I)  =  VEL(I) 

IF  (N3WAY  .EQ.  1) 


GO  TO  270 


APPLY  RUNNING  MEAN  FILTER  (ACCEL5) 

190  CALL  HOLWAY  (N02) 

WRITE  (3,2070) 

WRITE  (3,2080) 

WRITE  (3,1010)  (TIME(  I),ACCEL(I), I«l»8) 

WRITE  (3,1010)  (TIME(  I), ACCEL* I), I  =  NN02,N02) 


DECIMATE  ACCELERATION  FOR  LOW  PASS  FILTERING 
L  =  l 

DO    210    I    =    1,N02,10 
ACCEL7(L)    =    ACCEL6U) 
CTIME(L)=(L-1)*0.2 
210    L=L+1 

CTIME(L)=(L-1)*0.2 

EQUALLY  SPACED  POINTS  ARE  NOW  0.2  SEC  APART  (ACCEL7) 


WRITE  (3,3090) 
WRITE  (3,3000) 
WRITE  (3,1010)  (CTIME(I),  ACCEL7(I),  I=1,N2P1) 

APPLY  ORMSBY  LOW-PASS  FILTER  ON  DECIMATED  DATA 
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230 


FSUBC  *  FR0MIN-0.02 

FSUBT  =  FROMIN 

IF  (NEWWAY  .EQ.  4 )  FSUBT  *  2.00 

IF  (NEWWAY  .EO.  4)  FSUBC  =  1.95 

DELT=0.2 

ISYM  =  1 

CALL  ORMSBY  (  IS YM, FSUBC, FSUBT, DE LT, ACCEL7, NSHORT ) 

FILTERED  DATA  IS  PLACED  IN  ACCEL  ARRAY 

DO  230  I*1,N2P1 

ACCEL8(I)=ATEMP(I) 

TINST(I)=( I-l)*0.2 

WRITE  (3.3020) 

WRITE  (3.3070) 

WRITE  (3.1010)  (TINST(I).  ACCEL8(I),  I=1»N2P1) 

INTERPOLATE  TO  0.02  SEC  TIME  INTERVALS 

DELT=0.02 

CALL  EOLSPC  (DELT,N2M1) 

WRITE  (3,3080) 
WRITE  (3,2080) 


WRITE 
WRITE 


260 
270 


275 


278 


280 


290 


300 


(3,1010) 
(3,1010) 


(TIME(I),ACCEL(I), 1=1,8) 
(TIME (I), ACCEL (I), I«NN02,N02) 


SUBTRACT  LOW-PASS  FILTERED  DATA  (ACCEL8)  FROM  LEAST  SO  DATA 
(ACCEL5)  AND  RESTORE  FILTERED  ACCELERATION  DATA  IN  ACCEL9  ARRAY. 


DO 
A 


260  1=1, N 
CEL9(I)=ACCEL5(I)-ACCEL8(I) 


(N2WAY 
(N2WAY 
(N3WAY 
(N3WAY 
(N5WAY 
(N5WAY 


EO. 

EQ. 

EQ.- 

EQ. 

EQ. 

EO. 


1) 
1) 
1) 
1) 
1) 
1) 


WRITE 
GO  TO 
WRITE 
GO  TO 
WRITE 
GO  TO 


(3,2030) 

275 

(3,2030) 

275 

(3,2030) 

275 


WRITE 
WRITE 
WRITE 
WRITE 


(3,4060) 
(3,2080) 
(3,1010) 
(3,1010) 


(TIME(I),ACCEL9(I),I=1,8) 
(TIME(I),ACCEL9(I ) ,  I-NN02, N02 ) 


CALL  LESTSQ  TO  INTEGRATE  NEW  ACCEL9  DATA  AND  GET  VELOCITY. 
THEN  LEAST  SQ  VEL  AND  DEDUCT  CORRECTION  TERM  (B)  FROM  ACCEL9. 


NPAS 

IF  ( 

IF 

IF 

IF 

IF 

IF 

GO 

CALL 

GO  T 

CALL 

WRIT 

CONT 

IF  ( 

IF  ( 

IF  ( 

WRIT 


S  =  2 

N2WAY  .EQ.  1) 
N3WAY  .EQ.  1) 
N4WAY  .EO.  5) 
N5WAY  .EO.  1) 
N6WAY  .EO.  1) 
N6WAY  .EQ.  6) 
0  290 

HORIZ  (NPASS) 
C  300 

LESTSQ  (ACCEL 
E  (3,4050) 
INUE 

N2WAY  .EQ.  1) 
N3WAY  .EO.  1) 
N5WAY  .EO.  1) 
E  (3,2030) 


GO  TO  280 
GO  TO  280 
GO  TO  290 
GO  TO  280 
GO  TO  280 
GO  TO  280 


9, NPASS) 


GO  TO  390 
GO  TO  390 
GO  TO  390 


PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 


232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 


PH2  258 
PH2  259 


PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 

PH2 

PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 


261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 

278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
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WRITE  (3,2080) 
WRITE  (3,1010) 
WRITE  (3,1010) 


(TIME(I)»ACCEL(I), 1=1,8) 
(TIME(  I),ACCEL(I)» I*NN02,N02) 


WRITE 
WRITE 
WRITE 
WRITE 


(3,2050) 
(3,3030) 
(3,1010) 
(3,1010) 


(TIME(I),VEL(I), 
(TIME(  I),VEL(I), 


1,8) 
NN02»N02) 


330  CONTINUE 


DECIMATE  VELOCITY  FOR  LOW-PASS  FILTERING 

L=l 

00  340  I=1,N02»10 

VEL1(L)=VEL( I) 

340  L»L  +  1 

WRITE  (3,4020) 

WRITE  (3,3040) 

WRITE  (3,1010)  (TIME(I),VEL1(I),  I=1,N2P1) 


C 
C 
C 
C 
C 

EQUALLY  SPACED  DATA  ARE 

NOW  0. 

APPLY  ORMSBY 

LOW 

PASS  FILTER 

DELT=0.2 

IF 

(N4WAY 

.EO. 

5) 

FSUBT  = 

0.5 

IF 

(N4WAY 

.EO. 

5) 

FSUBC  = 

0.48 

IF 

(N4WAY 

.EO. 

7) 

FSUBT  = 

0.1 

IF 

(N4WAY 

.EO. 

7) 

FSUBC  = 

0.08 

IF 

(N4WAY 

.EO. 

8) 

FSUBT  = 

0.3 

IF 

(N4WAY 

.EO. 

8) 

FSUBC  = 

0.28 

IF 

(N4WAY 

.EO. 

9) 

FSUBT  = 

2.0 

IF 

(N4WAY 

.EO. 

9) 

FSUBC  = 

1.98 

IF 

(N4WAY 

.EO. 

10) 

FSUBT 

*  1.0 

IF 

(N4WAY 

.EO. 

10) 

FSUBC 

=  0.98 

CALL  ORMSBY  ( I S YM, F SUBC, FSUBT, DEL T, VEL 1, NSHORT ) 

FILTERED  DATA  IS  PLACED  IN  VEL1  ARRAY 

DO  360  1=1, N2 
360  VEL1(I)=ATEMP(I) 
WRITE  (3,4030) 
WRITE  (3,4080) 
WRITE  (3,1000)  (I,VEL1(I),  I«1,N2P1) 

INTERPOLATE  BACK  TO  0.02  SEC  TIME  INTERVALS 

DELT  =  0.02 
NPASS  =  1 

CALL  INTERP  ( DELT, N2 , NPASS, VEL1, ATEMP, NEWWAY > 

EOUALLY  SPACED  POINTS  ARE  NOW  0.02  SEC  APART 

SUBTRACT  FILTERED  VELOCITY  (ATEMP)  FROM  INITIAL  VELOCITY  (VEL). 

DO  380  1=1, N02 
VEL(I)=VEL(I)-ATEMP(I) 
380  TIMEd  )=  (I-1)*0. 02 
WRITE  (3,4070) 
WRITE  (3,2030) 
WRITE  (3,2080) 

WRITE  (3,1010)  (TIMEd), ACCEL(I),  1  =  1,8) 
WRITE  (3,1010)  (TIME(  I), ACCEL( I), I  =  NN02,N02) 


PH2  300 
PH2  301 
PH2  302 

PH2  304 

PH2  305 

PH2  306 

PH2  307 

PH2  308 

PH2  310 
PH2  311 
PH2  312 
PH2  313 
PH2  314 
PH2  315 
PH2  316 
PH2  317 


PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 


318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
36e 
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390  CONTINUE 

WRITE  (3.1070) 
WRITE  (3,3030) 
WRITE  (3*1010) 
WRITE  (3,1010) 


400 


405 


410 


(TIME (I  >,VEL(I), 
(TIME(  I),VEL(I), 


1=1,8) 

I=NN02,N02  ) 


INTEGRATE  NEW  VELOCITY  (VEL)  TO  OBTAIN  NEW  DISPLACEMENT  (DISP) 
IF  (N2WAY  .EO.  1)  N02  =  N02  ♦  1 

DT  *  0.02 
DISP(1)*0.0 

NM1  =  N02-1 
00  400  1*1, NM1 


DISPC 1  +  1 1  =  DISPd  )  +  <VEL(  I) 
IF  (N4WAY  .EO.  5)  GO  TO  405 
IF  (N2WAY  .EO.  1)  WRITE  (3,1080) 
IF  (N3WAY  .EO.  1)  WRITE  (3,1080) 
IF  (N4WAY  .EO.  1)  WRITE  (3,1080) 
IF  (N5WAY  .EO.  1)  WRITE  (3,1080) 


♦  VELd  +  1)  )*DT/2.0 


WRITE 
WRITE 
WRITE 
WRITE 


(3,4090) 
(3,4040) 
(3.1010) 
(3.1010) 


(TIME!  I).OISP(I). Ixl,8) 
(TIME  (I),  DISPd),  I*NN02,N02> 


IF  (N2WAY 
IF  (N3WAY 
IF  (N4WAY 
IF  (N5WAY 
CONTINUE 


EO. 

EO. 

■  EO. 

■  EO. 


1) 
1) 
1) 
1) 


GO 
GO 
GO 
GO 


TO 
TO 
TO 
TO 


470 
470 
470 
470 


DECIMATE  DISPLACEMENT  FOR  LOW  PASS  FILTERING. 

L  =  l 

DO  410  1=1, N, 10 

DISP1(L)«DISP(I ) 

L  =  L  +  1 

EQUALLY  SPACED  OATA  ARE  NOW  0.2  SEC  APART 


IF  (N4WAY 

.EO. 

5) 

FSUBT  * 

0.5 

IF  (N4WAY 

.EO. 

5) 

FSUBC  * 

0.4B 

IF  (N4WAY 

.EO. 

7) 

FSUBT  = 

0.1 

IF  (N4WAY 

.EO. 

7) 

FSUBC  = 

0.08 

IF  (N4WAY 

.EO. 

8) 

FSUBT  = 

0.3 

IF  (N4WAY 

.EO. 

8) 

FSUBC  = 

0.28 

IF  (N4WAY 

.EO. 

9) 

FSUBT  = 

2.0 

IF  (N4WAY 

.EO. 

9) 

FSUBC  = 

1.98 

IF  (N4WAY 

.EO. 

101 

FSUBT  ■■ 

■=  1.0 

IF  (N4WAY 

.EO. 

101 

FSUBC  ■■ 

=  0.98 

APPLY  ORMSBY 

LOW 

PASS  FILTER 

ISYM  =  0 

DELT=0.2 

CALL  ORMSBY  ( I S YM, F SUBC , F SUBT, DE L T, D I SP1, NSHORT ) 

FILTERED  DATA  IS  PLACED  IN  DISP1  ARRAY 

DO  420  I=1,N2P1 
420  DISP1(I)*ATEMP(I) 
WRITE  (3,3010) 
WRITE  (3,3060) 
WRITE  (3,1000)  (I.DISPKI),  I  =  1,N2P1) 

INTERPOLATE  BACK  TO  0.02  SEC  TIME  INTERVALS 

DELT  =  0.02 


PH2  370 

PH2  371 

PH2  372 

PH2  373 

PH2  374 


PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 

PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 
PH2 


376 

377 

378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
3Be 
389 
390 
391 
392 
393 

395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
42  2 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
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NPASS  =  0 

CALL  INTERP  ( DE LT , N2 , NP ASS > 0 1 S PI , ATEMP, NE WWAY ) 

EQUALLY  SPACED  POINTS  ARE  NOW  0.02  SEC  APART 

SUBTRACT  FILTERED  DISPLACEMENT  (ATEMP)  FROM  INITIAL  DISPL.  (DISP) 

DO  440  1*1, N02 
440  DISPd  )*DISP(I  )-ATEMP(I) 
WRITE  (3*1080) 

DO  450  1=1, N02 
450  TIME(I)*(I-1)*0.02 

WRITE  (3,4040) 

WRITE  (3,1010)  (TIME(I),  DISPd),  1*1,  N02) 
470  CONTINUE 

IF  (N2WAY  .EO.  8)  GO  TO  475 

IF  (NPLOT  .LE.  0  .OR.  NPLOT  ,6E.  5)  60  TO  500 

CONVERT  ACCELERATION  BACK  TO  UNITS  OF  GRAVITY 

480  CONTINUE 

DO  490  1=1, N 
490  ACCEL9(I)=ACCEL9(I 1/980.665 


WRITE  (3,2060) 

WRITE  (3,2080) 

WRITE  (3,1010) 

WRITE  (3,1010) 


(TIME(I),ACCEL9(I), 1*1,8) 
(TIME(I),ACCEL9(I),I*NN02,N02) 


DELT    =    0.02 

CALL    PLTDAT    ( NPLOT, DELT, XRED, YRED, N02 ) 


500    CONTINUE 


1000  FORMATU 

1010  FORMATU 

1020  FORMATU 

1030  FORMAT  ( 

1040  FORMAT  ( 

1    45HCRIT 

2//) 

1050  FORMAT  ( 

1060  FORMAT  ( 

1070  FORMAT  ( 

1080  FORMAT  ( 

1090  FORMAT  ( 

2000  FORMAT  ( 

2010  FORMAT  ( 

2019  FORMAT  ( 

2020  FORMAT  ( 
2030  FORMAT  ( 
2040  FORMAT  < 
2050  FORMAT  ( 

2060  FORMAT  ( IX, /, 10X, 2 3HF INAL  ACCELERATION  IN  G/) 

2070  FORMAT  ( IX , / , 10X, 30HH0LL0W AY  FILTERED  ACCELERATION/) 

2080  FORMAT  ( 5X , 4HT I  ME , 4 X , 5HACC E L ) 

3000  FORMAT  ( 4X, 5HC T IME , 3 X , 6HAC C EL7 ) 

3010  FORMAT  ( 1 X, / , 10X, 3 5H0RMS B Y  FILTERED  DISPLACEMENT*  DISP1/) 

3020  FORMAT  ( IX, 1, 10X, 4 5HF I LTE RE D  DATA  PLACED  IN  ACCEL  ARRAY  AT  .2  SEC/ 

) 

3030  FORMAT  ( 5X , 4HT I  ME , 6X , 3HVE L ) 


1X,6(I5,F10.3)  )  ) 

1X,8(F8.3,F9.3)  )) 

1X,6(F10.3,E10.3) ) ) 

4F10.6, 815) 

1X,/,10X,31HNATURAL  PERIOD  OF  INSTRUMENT  I S , F 1 0. 5, / , 10X , 

ICAL  DAMPING  COEFFICIENT  OF  INSTRUMENT  IS,F10.5,8H  PERCENT 

IX, /,10X,36HAFTER  INSTRUMENT  RESPONSE  CORRECTION//) 

10X,4FJ0. 6,8110/) 

1X,/,10X,24HFINAL  VELOCITY  IN  CM/SEC/) 

1X,/,10X,24HFINAL  DISPLACEMENT  IN  CM/) 

20A4) 

1H,20A4,/M 

/,10X,41HN0  INSTRUMENT  RESPONSE  CORRECTION  IS  MADE/) 

1X,/,3X,3HN01,2X,3HN02,3X,2HN1,3X,2HN2) 

IX, 415) 

IX, /,10X»32HFINAL  ACCELERATION  IN  CM/SFC/SEC/) 

1X,/,10X,26HACCELERATI0N  IN  CM/SEC/SEC/) 

1X,/,10X,18HVEL0CITY  IN  CM/SEC/) 


PH2 

438 

PH2 

439 

PH2 

440 

PH2 

441 

PH2 

442 

PH2 

443 

PH2 

444 

PH2 

445 

PH2 

446 

PH2 

447 

PH2 

448 

PH2 

449 

PH2 

450 

PH2 

451 

PH2 

452 

PH2 

453 

PH2 

454 

PH2 

455 

PH2 

457 

PH2 

460 

PH2 

461 

PH2 

462 

PH2 

463 

PH2 

464 

PH2 

465 

PH2 

466 

PH2 

467 

PH2 

468 

PH2 

469 

PH2 

470 

PH2 

471 

PH2 

472 

PH2 

473 

PH2 

474 

PH2 

475 

PH2 

476 

PH2 

477 

PH2 

478 

PH2 

479 

PH2 

480 

PH2 

481 

PH2 

482 

PH2 

483 

PH2 

484 

PH2 

485 

PH2 

486 

PH2 

487 

PH2 

488 

PH2 

489 

PH2 

492 

PH2 

493 

PH2 

494 

PH2 

495 

PH2 

496 

PH2 

497 

PH2 

498 

PH2 

499 

PH2 

500 

PH2 

501 

PH2 

502 

PH2 

503 

PH2 

504 

PH2 

505 
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3040  FORMAT  <  5  X,  4HT  I  ME  >  5  X  ,  4HVE  L  1  )  PH2  5C6 

3060  FORMAT  (  5X  ,  1HI , 5X, 5HD  I  SP1  )  PH2  507 

3070  FORMAT  ( 4X, 5HT I NST , 3X , 6HACC EL  8 )  PH2  508 

3060  FORMAT  ( IX, / , 10X, 32HF  ILTER ED  ACCELERATION  AT  .02  SEC/)  PH2  509 

3090  FORMAT  ( IX , / , 1  OX, 4 1HDEC IM ATED  ACCELERATION  PRIOR  TO  FILTERING/)  PH2  510 

4000  FORMAT  ( 16X , 1HT , 9X , 2HCD, 5 X , 6HSC AL ET, 5X, 6HSC AL E A , 9X , 5HNPL OT ,  PH2  511 
5X,6HISH0RT,4X,6HNEWWAY,4X,  5HN2 W AY, 5X > 5HN3WAY, 5X , 5HN4 WA Y,   PH2  512 

5X,5HN5WAY,5X,5HN6WAY/ >  PH2  513 
4010  FORMAT  ( IX , / , 1  OX, 5 1HE0UAL L Y  SPACED  POINTS  ARE  NOW  .02  SEC  APAPTUC  PH2  514 

.CEL4)/)  PH2  515 

4020  FORMAT  ( IX , /, 1  OX, 36HD EC  I  MA TE D  VELOCITY,  VEL1,  AT  .2  SEC./)  PH2  516 

4030  FORMAT  ( 1 X, / t 10X, 4 1H0RMSB Y  FILTERED  VELOCITY,  VEL1,  AT  .2  SEC/)  PH2  517 

4040  FORMAT  ( 5X , 4HT I  ME, 5X , 4HDI S P  )  PH2  518 
4050  FORMAT  ( IX , / , 1  OX, 50H ACCE L 9  WITH  B  TERM  FROM  LESTSQ  VELOCITY  SUBTRA  PH2  519 

.CTED/)  PH2  520 

4060  FORMAT  (  1  X,  / ,  10X,  2  4HACCE  L9  =»  ACCEL5  -  ACCEL8/)  PH2  521 

4070  FORMAT  ( IX, /, 10X, 57HACCEL9  CORRECTED  FOR  VELOCITY  CHANGE  DUE  TO  OR  PH2  522 

.MSBY  FILTER/)  PH2  523 

4080  FORMAT  ( 5X, 1HI , 6X, 4HVEL1 )  PH2  524 

4090  FORMAT  ( IX, /# 10X, 23HINTEGRATED  DISPLACEMENT/)  PH2  525 

RETURN  PH2  526 

END  PH2  527 


SUBROUTINE  REDATA  (A)  RED  001 

IMPLICIT  REAL*4  (A-H.O-Z)  I 

C  RED  002 

C       THIS  SUBROUTINE  READS  DIGITIZED  DATA  FROM  PUNCHED  CARDS  AND        RED  003 

C       CHECKS  FOR  INCREASING  VALUES  OF  TIME                                RED  004 

C  RED  005 

COMMON  ACCEL ( 5500 ), T I  ME ( 5500 ), T I TLE ( 20 ),VEL( 3000 ),D ISP (3000),  LAST 
C 
C 

C  RED  009 

NT=-1  RED  010 

10  NT=NT+1  RED  Oil 

READ  (1,1000,END=20)  ( TIME ( NT+4+I ), ACCEL ( NT*4+I ) ,  1*1, A) 

GO  TO  10 

20  LAST  =  4*NT  RED  014 

C  RED  015 

IF  (ACCEL(LAST)  .EO.  0.0)  LAST  *    LAST-1                              RED  016 

IF  (ACCEL(LAST)  .EO.  0.0)  LAST  *  LAST-1                              RED  017 

IF  (ACCEL(LAST)  .EO.  0.0)  LAST  «■  LAST-1                              RED  018 

IF  (LAST  .LE.  2998)  GO  TO  40 

C  RED  020 

30  WRITE  (3,1040)  TIME(2998)  RED  021 

STOP  777  RED  022 

40  XN  *  TIME(LAST)*A  RED  023 

IF  (XN  .LE.  54.95)  GO  TO  60 

C  RED  025 

50  XNN  =  54.95/A  RED  026 

WRITE  (3,1040)  XNN  RED  027 


RED  028 


WRITE  (3,2000) 


C  RED  030 

STOP  77  RED  031 

60  WRITE  (3,1030)  LAST  RED  032 

C  RED  033 

C       CHECK  DATA  FOR  CONTINUOUSLY  INCREASING  TIMES  RED  034 

C  PED  035 

GAP  «  1.0/A/4.0  RED  036 

C  RED  037 

C       GAP  *  0.25  SEC  IN  TERMS  OF  INPUT  TIME  VALUES  RED  038 

C       DATA  POINTS  DIGITIZED  FURTHER  APART  THAN  THIS  VALUE  ARE  NOT  RED  039 

C-       CONTINUOUS  AND  THE  REMAINING  DATA  IS  TRUNCATED.  RED  040 

C       IF  THE  DIFFERENCE  BETWEEN  TWO  ADJACENT  VALUES  OF  TIME  IS  LESS  RFD  041 
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C       THAN  GAP,  AND  THE  TIME  VALUES  ARE  DECREASING,  THE  SMALLER  VALUE    RED  042 

C       IS  EOUATED  TO  THE  PREVIOUS  LARGER  VALUE.  RFD  043 

C  RED  044 

LM1  =  LAST-1  RED  045 

C  RED  046 

DO  80  M=1,LM1  RED  047 

IF  (ABS(TIME(Md)-TIME(M)  )  .GT.  GAP)  GO  TO  90  RED  048 

IF(TIME(M  +  1)-TIME(M)  )  70,80,80  RED  049 

70  TIMECM  +  U  *  TIME(M)  RED  050 

80  CONTINUE  RED  051 

C  RED  052 

GO  TO  100  RED  053 

90  IF  (M  .LT.  LAST)  WRITE  (3,1020)  GAP,  M  RED  054 

LAST  *  M  RED  055 

100  CONTINUE  RED  056 

LLAST  =  LAST  -  8  RED  057 

WRITE  (3,1050)  RED  058 

WRITE  (3,1010)  (TIME(I),  ACCEL(I),  I«l,8)  RED  059 

WRITE  (3,1010)  (TIME(I),  ACCEL(I),  I«LL AST, L AST  )  RFD  060 

C 

C  RED  062 

1000  FORMAT  (4(2F10.0)>  RED  063 

1010  F0RMAT((1X,8(F8.3,F9.3) I )  RFD  064 

1020  FORMAT  (10X,68HTHE  MAXIMUM  DIFFERENCE  ALLOWED  BETWEEN  SUCCESSIVE  V  RED  065 

1ALUES  OF  TIME  IS  » F 10 . 3, / / , 10X, B1HTHIS  DIFFERENCE  HAS  BEEN  EXCEEDE  RED  066 

2D,  THUS  THE  TOTAL  NUMBER  OF  POINTS  ARE  REDUCED  TO, 15//)  RED  067 

1030  FORMAT  (10X,27HN0  OF  INPUT  DATA  POINTS  ARE, 15//)  RED  068 

1040  F0RMAT(//,10X, 13HT00  MUCH  D AT  A, / / , 10X, 26HR EMOVE  DATA  BEYOND  TIME    RED  069 

2«,F10.3,18H  AND  RERUN  PROGRAM//)  RED  070 

1050  FORMAT  ( 5X, 4HT IME, 4X , 5HACCE L )  RFD  071 

2000  FORMAT  ( 10X, 28HINPUT  DATA  OVERLOADS  PROGRAM) 

RETURN  RED  072 

END  RED  073 


SUBROUTINE  DATALT  (A,B)  DAT  001 

IMPLICIT  REAL*4  (A-H.O-Z) 

C  '  DAT  002 

C       THIS  SUBROUTINE  CONVERTS  THE  DATA  TO  USABLE  OUANTITIES  DAT  003 

C  DAT  004 

COMMON  ACCEL ( 5500 ), T I  ME ( 5500 ), T I TLE ( 20 ),VEL( 3000 ),DISP( 3000), LAST 
C 

C 

C  DAT  008 

C  DAT  009 

IF  (A  .EG.  1.0  .AND.  B  .EQ.  1.0)  GO  TO  20  DAT  010 

WRITE  (3,1020)  A,B  DAT  Oil 

C  DAT  012 

DO  10  1=1, LAST  OAT  013 

TIMEd  )  =  TIME(  I)*A  DAT  014 

ACCEL(I)  =  ACCEL(I)*B*980.665  OAT  015 

10  CONTINUE  DAT  016 

C  DAT  017 

GO  TO  40  DAT  018 

20  CONTINUE  DAT  019 

DO  30  1*1, LAST  DAT  020 

30  ACCEL(  I)*ACCEL(I)*980.665  DAT  021 

40  CONTINUE  OAT  022 

50  CONTINUE  DAT  023 

C  DAT  024 

C       CORRECT  TIME  BASE  TO  BEGIN  WITH  INITIAL  TIME  =  0  DAT  025 

C  DAT  026 

IF(TIMEd)  .EC  0.0)  GO  TO  70  DAT  027 

DO  60  1=2, LAST  DAT  028 

TIMEd  )  =  TIME(I)-TIME(1)  DAT  029 

60  CONTINUE  DAT  030 

TIME( 1)=0.0  DAT  031 
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70  CONTINUE 

LLAST  *  LAST  -  8 

WRITE  (3»1000J 

WRITE  (3,1030) 

WRITE  (3,1010)  (TIME(I),  ACCEL(I), 


1-1,8) 


WRITE  (3,1010)  (TIME(I),  ACCEL(I),  I  - LL AST , L AST ) 


OAT  032 

DAT  033 

DAT  034 

DAT  035 

DAT  036 

DAT  037 


:  DAT  039 

1000  FORMAT  (  15X,79HREVISED  DATA  WITH  TIME  IN  SEC  -  ACCELERATION  IN  CM/  DAT  040 

1SEC/SEC  -  BASELINE  CORRECTED//)  DAT  041 

1010  F0RMAT((1X,8(F8.3,F9.3) ) )  DAT  042 

1020  FORMAT  ( / / , 10X, 27HT I  ME  ARRAY  IS  MULTIPLIED  BY,F10.6,18H  TO  OBTAIN   DAT  043 

1SEC0NDS,/,10X, 35HACCELERATION  ARRAY  IS  MULTIPLIED  BY,F10.6,47H  TO   OAT  044 

20BTAIN  ACCELERATION  IN  TERMS  OF  GRAVITY  (G)//)  DAT  045 

1030  FORMAT  ( 5X, 4HT I  ME, 4 X , 5HACC EL  1  DAT  046 

RETURN  DAT  047 

END  DAT  048 


SUBROUTINE  EOLSPC  (DELT,N1) 
IMPLICIT  REALM  (A-H.O-Z) 

FROM  THE  ACCEL  ARRAY  IN  COMMON,  THE  DATA  IS  INTERPOLATED  TO 
EQUALLY  SPACED  TIMES  (DELT)  AND  REPLACES  OLD  UNEQUALLY  SPACED 
DATA  IN  ACCEL  ARRAY 
THE  TEMP  ARRAY  TEMPORARILY  STORES  THE  DATA  DURING  INTERPOLATION. 

COMMON  ACCEL ( 5500), TEMP ( 5500 ), T I TLE( 20 ),VEL( 3000), TIME (3000), LAST 


N  =  NUMBER  OF  EQUALLY  SPACED  TIME  INCREMENTS 
N  =  LAST 

IF  (DELT  .EG.  0.02)  N=N1*10 

M=>N  +  1 

NN  =  Nl  +  1 

WRITE  (3,1020)  N 


LL  =  1 

ATIME  *  0.0 
DO  30  1=2, NN 
DO  20  L=LL»M 
IF  (ATIME  .GT, 


TIME(  I  )  ) 


GO  TO  30 

IF  (TIME(I)  -TIME(I-D)  30.30,10 
10  TEMP(L)=ACCEL(I-1)+(ACCEL(I)-ACCEL(I-1) )  *( ATI ME-T IME ( 1-1 > ) / < T IME < I 
l)-TIME(I-l)) 
ATIME  =  L*DELT 
CONTINUE 
LL  *  L 
DO  40  1=2, M 
ACCEL(I)=TEMP(I) 
TEMP(I)=(I-1)*DELT 
TEMP(1)=0.0 


20 
30 


40 


WRITE  (3,1000) 
LM  =  M  -  8 
WRITE  (3,1010) 
WRITE  (3,1010) 


(TEMP(  I), 
(TEMP(I), 


ACCEL(I), 
ACCEL(I), 


1=1,8) 
I=LM,M) 


000 
010 
020 


FORMAT  (7X,4HTIME, 5X,5HACCEL) 

F0RMAT((1X,4(2F10.3) ) ) 

FORMAT  (1X,/,10X,27HEQUAL  SPACING 

RETURN 

END 


ROUTINE  -  N  =,15//) 


EQL  001 

EQL  002 

EOL  003 

EOL  004 

EOL  005 

EOL  006 

EOL  007 


EQL  Oil 
EOL  012 
EQL  013 


EOL 
EQL 
EOL 
EQL 
EOL 
EOL 
EQL 
EOL 
EQL 
EOL 
EOL 
EOL 
EOL 
EOL 
EQL 
EOL 
EQL 
EOL 
EOL 
EQL 
EQL 
EQL 
EOL 
EOL 
EOL 


014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 


EQL  040 

EOL  041 

EQL  042 

EOL  043 

EOL  044 

EQL  045 
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SUBROUTINE  LESTSO  (RET, NPASS)  LES  001 
IMPLICIT  REAL*4  (A-H,0-Z) 

C  LES  002 

C       TEMP  ARRAY  IS  ALWAYS  LEAST  SOUARED.  LES  003 

C       RETN  ARRAY  RETURNS  PROPER  DATA   AND  SHARES  STORAGE  WITH  ACCEL5.    LES  004 

C           .  LFS  005 
COMMON  ACCEL ( 5500 ), TIME (5500), TITLE (20 ),VEL( 3000), TEMP (3000), LAST 

DIMENSION  RETOOOO)  LES  007 
C 
C 

C  LES  010 

DT  =  0.02  LES  Oil 

TLAST  -  FL0AT(LAST)*0.01  LES  012 

IF  (TLAST  .EO.  0.0)  TLAST  =  FLOAT < LAST-1 ) *0. 01  LES  013 

N  =  LAST/2  LES  014 

NP1  =  N+l  LES  015 

DO  10  1=1, NP1  LES  016 

IF  (TIME(I)  .LT.  0.0)  GO  TO  20 

10  CONTINUE  LES  018 

C  LES  019 

20  NBEG  =  I  LES  020 

WRITE  (3,1060)  NP1  LES  021 

C  LES  022 

IF  (NPASS  .EO.  2)  GO  TO  110  LES  023 

30  AREA  =  0.0  LES  024 

DIS  =  0.0  LES  025 

NM1  =  N-l  LES  026 

C  LES  027 

DO  40  1=1, N  LES  028 

IF  (I  .EO.  NBEG)  AREA1  =  AREA  LES  029 

IF  (I  .EQ.  NBEG)  DIS1  =  DIS  LES  030 

DT  =  TIME(H-l)-TIMEU)  LES  031 

DIS=DIS+AREA*DT+0T*DT/6.0*(2.0*ACCEL(I)+ACCEL(I+1>)  LES  032 

40  AREA*AREA+(ACCEL(I )+ACCEL(I+l) )*DT/2.0  LES  033 

C  LES  034 

LES  035 

i,N, TLAST, TIME(N  +  1)  LES  036 

LES  037 

LES  038 

LES  039 

ZERO  LES  040 

LES  041 

IF  (DENOM  .NE.  0.0)  GO  TO  60 

50  WRITE  (3,1060)  LES  043 

GO  TO  70  LES  044 

60  A  =(4./3.  )*(AREA-AREA1)*TLAST**3-2.*(AREA*TLAST-DIS  +  DIS1)*TLAST**2  LES  045 

C  LES  046 

A  =  A/DENOM  LES  0<-7 

B  =  4.0*TLAST*(AREA*TLAST-DIS+DIS1)-2.0*(AREA-AREA1)*TLAST**2  LES  048 

B  =  B/DENOM  LES  049 

WRITE  (3,2040)  LES  050 

WRITE  (3,1070)  NPASS, A, B  LES  051 

C  LES  052 

70  IF  (NPASS  .GE.  2)  GO  TO  140  LES  053 

C  LES  054 

C      LEAST  SO  FIT  ACCEL(I)  LES  055 

C  LES  056 

DO  60  1=1, NP1  LES  057 

CORREC=A+B*TIME(I)  LES  056 

60  RET(I)  *  ACCEL(I)  -  CORREC  LES  059 

NNP1  =  NP1  -  6  LES  060 

WRITE  (3,1000)  LES  061 

WRITE  (3,2020)  LES  062 

WRITE  (3,1010)  (TIME(I),  RET(I),  1=1,6)  LES  063 

WRITE  (3,1010)  (TIME(I),  RET(I),  NNP1,NP1)  LES  064 

C 
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C 
C 

c 
c 

WRITE  (3,2030) 

WRITE  (3,1090)  DIS, ARE 

• 

0EN0M=(1./3.)*TLAST**4 

CHECK  FOR  DIVISION  BY 

LEAST  SQUARED  VALUES  NOW  IN  RET  ARRAY. 
NPASS  =  3 
INTEGRATE  TO  GET  VELOCITY. 

110  CONTINUE 

TEMPd  )  =  0.0 

DO  120  1=1, N 

DT  =  TIME< I  +  1)-TIME(  1  ) 
120  TEMP(I+1)=TEMP(I)+(RET(I)+RET( I+1))*DT*0.5 

LN  =  N  -  8 

WRITE  (3,1020) 

WRITE  (3,2000) 

WRITE  (3,1010) 

WRITE  (3,1010) 


(TIME(I), 
(TIME(  I), 


TEMP(  I), 
TEMP(  I), 


1=1,8) 
LN,N) 


LES 
LES 
LES 
LES 
LES 
LFS 
LES 
LFS 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 


066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 


AT  THIS  POINT,  THE  TEMP  ARRAY  CONTAINS  VELOCITY. 


GO  TO  30 
140  DO  150  1=1, NP1 
150  RET(I)=RET(I)-B 

WRITE  (3,1040) 

WRITE  (3,2010) 

WRITE  (3,1010)  (TIME(I),  RET(I), 

WRITE  (3,1010)  (TIME(I),  RET(I), 


1=1,8) 

NNP1,NP1) 


LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LFS 
LFS 


084 
085 
086 
087 
088 
089 
090 
091 
092 
093 


IF  (NPASS  .NE.  2)  RETURN 
DO  170  1=1, NP1 
ACCEL(  I)  =  RET( I) 
VEL(I)=  TEMPd  )-A-B*TIME(I) 
170  CONTINUE 

WRITE  (3,1050) 

WRITE  (3,2000) 

WRITE  (3,1010)  (TIME(I),  VEL(I),  1=1,16) 
1000  FORMAT  ( 1 X, / , 10X, 3 5H ACC FL 5  CORRECTED  FROM 
1010  FORMATU  IX,  8(  F8  .  3,  F9  .  3  )  )  ) 

1020  FORMAT  (1X,/,10X,38HINTEGRATED  VELOCITY  FROM  LESTSO  ACCEL5/) 
1040  FORMAT  ( IX, /, 10X, 48HC0RREC T  ION  TO  ACCEL5  FROM  LE ASTSQUAR  ING  VELOCI 

TY/) 
1050  FORMAT 
1060  FORMAT 
1070  FORMAT 
1080  FORMAT 
1090  FORMAT 
2000  FORMAT 
2010  FORMAT 
2020  FORMAT 
2030  FORMAT 
2040  FORMAT 

RETURN 

END 


LESTSO  ACCEL4/) 


( 1 X, /, 10 X, 2 1HL EAST  SQUARED  VELOCITY/) 

(//,10X,12H0EN0M  =  ZERO/) 

(1X,I6,2F12.4) 

(1X,/,10X,29HLEAST  SQUARING  ROUTINE  —  N  ',15//) 

(1X,2F10.3, I5,2F10.3) 

(5X,4HTIME,6X,3HVEL) 

(5X,4HTIME,4X,5HACCEL) 

(5X,4HTIME,4X,5HACCEL) 

(1X,/,6X,3HDIS,7X,4HAREA,4X,1HN,5X,5HTLAST,3X,9HTIME(N  +  D) 

(4X,5HNPASS»7X,1HA,12X,1HB) 


LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LES 
LFS 


095 
096 
097 
098 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 


SUBROUTINE  INTERP  ( DELT, N2, NP A SS, ENTER, EXI T, NEWWAY ) 
IMPLICIT  REAL*4  (A-H.O-Z)  \ 

DATA  TO  BE  INTERPOLATED  IS  ENTERED  TO  SUBROUTINE  VIA  ARRAY  ENTER, 
DURING  INTERPOLATION,  IT  IS  TEMPORARILY  STORED  IN  THE  SECOND 
ARRAY  OF  COMMON  AND  MUST  BE  TRANSFERRED  BACK  TO  THE  PROPER  ARRAY 
AFTER  IT  LEAVES  THE  SUBROUTINE. 

COMMON  ACCEL(5500),TIHE(5500),TITLE(20),VEL(3000),DISPT3000),LAST 


INT  001 

INT  002 

INT  003 

INT  004 

INT  005 

INT  006 

INT  007 
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20 

ATIME  *  L+DELT 

30 

LL  =  L 

EXIT(N)=ENTEP(NN) 

IF(NEWWAY  .E0.  1)  GO  TO  40 

ACCEL(N)  =  ACCEL(N)  -  DIFF 

LN  =  N  -  8 

40 

WRITE  (3,1000) 

WRITE  (3,1010)  (EXIT(I),  1*1,8) 

WRITE  (3,1010)  (EXIT(I),  I*LN,N) 

DIMENSION  ENTEROOO),  EXITOOOO)  INT  009 

INT  010 
N  =  N2*10  +1  -  INT  Oil 

WRITE  (3,1020)  N  INT  012 

INT  013 
LL  =  1  INT  014 

NN  =  N2  +  1  INT  015 

ATIME  =  0.0  INT  016 

00  30  1=2, NN  ,  INT  017 

DIFF  =  (ENTER( I)-ENTER(I-l) )/0.2  INT  018 

TIMEI  =  (I-D+0.2  INT  019 

TIMEM1  =  TIMEI-0.2  INT  020 

00  20  L=LL,N  INT  021 

IF  (ATIME  .GE.  TIMEI)  GO  TO  30  INT  022 

IFINEWWAY  .EO.  1)  GO  TO  10  INT  023 

IF  (NPASS  .EO.  1  .AND.  TIMEI  .GT.  ATIME)  ACCEL ( L  )  *ACC EL ( I ) -DIFF     INT  024 

10  EXIT(L)=ENTER( 1-1 )  +  ( ENTER ( I )-ENTE R( 1-1) ) *( ATIME-TIMEM1 ) / (TIME  I  -    INT  025 

1  TIMEM1)  INT  026 

INT  027 

INT  028 

INT  029 

INT  030 

INT  031 

INT  032 

INT  033 

INT  034 

INT  035 

:  INT  036 

1000  FORMAT  ( IX, / , 10X, 38HINTERP0L ATED  DATA  STORED  IN  TIME  ARRAY/)        INT  037 

1010  FORMAT  (16CF8.3))  INT  038 

1020  FORMAT  ( IX, /,  10X,  26HINTERP0LATING  ROUTINE  -  N>iI5//'l  INT  039 

RETURN  INT  040 

END  INT  041 


SUBROUTINE  H0LWAY(N02)  HOL  001 

IMPLICIT  REAL*4  (A-H.O-Z) 

C  HOL  002 

C      HOLLOWAY  RUNNING  MEAN  FILTER  HOL  003 

C  HOL  004 

C       THIS  SUBROUTINE  TAKES  THE  AVERAGE  OF  19  POINTS  ANO  REPLACES  THE    HOL  005 

C       TENTH  (OR  MIDPOINT  OF  THE  WINDOW  WIDTH)  POINT  WITH  THAT  VALUE  HOL  006 

C  HOL  007 

COMMON  ACCEL2 ( 5500 ), ATEMP ( 5500 ), TI TLE( 20 ),ACCEL5( 3000 ),D( 3000), 

1LAST 

C  HOL  009 

C      WW  =  WINDOW  WIDTH  HOL  010 

C  HOL  Oil 

WW*19.  HOL  012 

N  *  N02  HOL  013 

WRITE  (3,1020)  N  HOL  014 

C  HOL  015 

C       THE  ATEMP  ARRAY  IS  USED  HERE  AS  A  TEMPORARY  STORAGE  ARRAY          HOL  016 

C  HOL  017 

J  =  (WW+1.0J/2.0  HOL  018 

IF(J  .GT.  N)  J  =  N  HOL  019 

WW  *  2.0*FL0AT(J)  -  1.0  HOL  020 

DO  50  LL=1,N  HOL  021 

ATEMP(LL)*0.0  HOL  022 

I  *  0  HOL  023 

DO  20  MM=1,J  HOL  024 

KK=LL+MM-1  HOL  025 

IF  (KK  ,LE.  N)  GO  TO  20 

10  1*1+1  HOL  027 

KK=N-I  HOL  G28 

20  ATEMP(LL)=ATEMP(LL)+ACCEL2(KK)  HOL  029 
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I  *  1  HOI  030 

DO  40  MM=2,J  HOI  031 

KK=LL-MM+1  HoL  032 

IF  <KK  .GT.  0)  GO  TO  40 

30  1=1+1  HOL  034 

KK=I  HOL  035 

40  ATEMP(LL)«ATEMP(LL)+ACCEL2(KK)  HOL  036 

50  ATEMP(LL)*ATEMP(LL)/WW  HOL  037 

WRITE  (3»1000)  HOL  038 

WRITE  (3,1010)  <ATEMP(LL),LL=1,N)  HOL  039 

C  HOL  040 

C       REPLACE  FILTERED  DATA  INTO  ACCEL  ARRAY  HOL  041 

C  HOL  042 

DO  60  I-l.N  HOL  043 

ACCEL2(I)«ATEMP(I)  HOL  044 

60  ATEMP(I)  =  (  I-U+0.02  HOL  045 

C  HOL  046 

1000  FORMAT  ( IX, / , 10X, 25HACCEL  FROM  HOLOWAY  FILTER/)  HOL  047 

1010  FORMAT  (1X,13F10.3)  HOL  048 

1020  FORMAT  ( IX, /, 10X, 34HH0LL0WAY  RUNNING  MEAN  FILTER  -  N  =,15//)  HOL  049 

RETURN  HOL  050 

END  HOL  051 


SUBROUTINE  ORMSBY  ( I SYM, FSUBC . FSUBT » DELT, AENTER . NSHORT )  ORM  001 

IMPLICIT  REAL*4  (A-H.O-Z) 

C  ORM  002 

C      ORMSBY  FILTER  ORM  003 

C  ORM  004 

C       SUBROUTINE  ORMSBY  ACTS  AS  A  LOW  PASS  FILTER  FILTERING  OUT  ALL  ORM  005 

C       FREQUENCIES  GREATER  THAN  "FSUBT"  CPS.   A  LOW  PASS  FILTER  ALLOWS    ORM  006 

C       LOW  FREQUENCIES  TO  PASS  THROUGH  WHILE  FILTERING  OUT  THE  HIGHER     ORM  007 

C       FREQUENCIES  DUE  TO  ACCELOROMETER  AND  DIGITIZATION  ERRORS  ORM  006 

C       UNFILTEREO  DATA  IS  CONVEYED  VIA  AENTER  AS  A  PARAMETER  OF  ORMSBY,   ORM  009 

C       FILTERED  DATA  RETURNS  VIA  ATEMP  ARRAY  IN  COMMON  ORM  010 

C  ORM  Oil 

COMMON    ACCEL (5500), ATEMP (5500), TITLE (20)  ,  VEL ( 3000)  ,DISP (3000)  .LAST 

COMMON    /ORMS/    H(275),NN  ORM    013 

DIMENSION    AENTER(5500)  ORM    014 

C  ORM    015 

C       N  IS  THE  NUMBER  OF  POINTS  IN  ACCELOGRAM  TO  BE  FILTERED.  ORM  016 

C       NN  IS  THE  NUMBER  OF  FILTER  WEIGHTS  IN  EACH  HALF  OF  FILTER.  ORM  017 

C       2*NN+1  IS  THE  TOTAL  NUMBER  OF  FILTER  WEIGHTS.  ORM  018 

C  ORM  019 

WRITE  (3,1000)  ISYM  ORM  020 

N  *  <FL0AT(LAST+2) /100.0) /DELT  ORM  021 

IF     (DELT    .EQ.    0.2)     N*N+1  ORM    022 

ALS  *  ABS(FSUBC-FSUBT)  ORM  023 

WRITE  (3,1020)  FSUBC, FSUBT, ALS, DELT  ORM  024 

ALR  =  DELT*( ABS ( FSUBC-FSUBT ) »  ORM  025 

NN=1.0/ALR  ORM  026 

NNP1  =  NN+1  ORM  027 

IF  (NN  .GT.N)  NN=N  ORM  028 

C  ORM  029 

WRITE  (3,1070)  N  ORM  030 

WRITE  (3,1090)  NN  ORM  031 

C  ORM  032 

PI=3. 1415926535  ORM  033 

ALC=FSUBC*DELT  ORM  034 

ALT«ALC+ALR  ORM  035 
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THE  FILTER  WEIGHTS  ARE  CALCULATED 

DO  10  MN=2,NN 
MM=MN-1 

H(MN)=(C0S(2.*PI*ALC*MM)-C0S(2.*PI*ALT*MM))/(2.*ALR*(PI*MM)**2) 
10  SUM  =  SUM+H(MN) 

:       H(l)  IS  THE  VALUE  OF  THE  FILTER  WEIGHT  AT  THE  CENTER 

H(1)=ALT+ALC 
SUM=2.0*SUM+H<1) 

:       IF  NN  IS  LESS  THAN  N,  NOT  ALL  THE  WEIGHTS  ARE  USED  AND  AN 

:       ADJUSTMENT  MUST  BE  MADE  SO  THAT  THE  SUM  OF  THE  WEIGHTS  IS  ONE. 

XS  =  0.0 
DO  20  1=1, NN 
H(  I)=H(I)/SUM 
20  XS=XS+H(I) 

WRITE  (3,1030) 

WRITE  (3,1040)  (H( I),I=1,NN) 

:       THE  FILTER  WEIGHTS  ARE  APPLIED  TO  THE  EQUALLY  SPACED  DATA 
:       AND  STORED  IN  THE  ATEMP  ARRAY. 

30  DO  110  LL=1,N 
ATEMP(LL)=0.0 
1  =  0 

K=0 

LOOP  60  APPLIES  RIGHT  PORTION  OF  FILTER  WEIGHTS  TO  ACCELEROGRAM. 

DO  60  MM=1,NN 

KK=LL+K 

IF  (KK  .LE.  N)  GO  TO  50 
40  IF  (  ISYM  .EO.  0)  GO  TO  70 

1  =  1+1 

KK=N-I 

IF  (KK  .LE.  0)  GO  TO  60 
50  ATEMP(LL)=ATEMP(LL)+H(MM)*AENTER(KK) 
60  K  =  K  +  1 
70  K=l 

1  =  1 

:       LOOP  100  APPLIES  LEFT  PORTION  OF  FILTER  WEIGHTS  TO  ACCELEROGRAM. 

DO  100  MM=2,NN 

KK=LL-K 

IF  (KK  .GT.  0)  GO  TO  90 
80  IF  (ISYM  .EQ.  0)  GO  TO  110 

1  =  1  +  1 

KK=I 

IF  (KK  .GT.  N)  GO  TO  110 
90  ATEMP(LL)=ATEMP(LL)+H(MM)*AENTER(KK) 
100  K=K+1 
110  CONTINUE 

SUM  =  2.0*XS-H(1) 

IF  ( ABS(SUM-l.O)  .GT.  0.001)  WRITE  (3,1080)  SUM 

IF  (NSHORT  .EQ.  1)  WRITE  (3,1048) 
IF  (NSHORT  .EO.  0)  WRITE  (3,1050) 
WRITE  (3,1060)  (ATFMP(  I), 1=1, N) 

1000  FORMAT  (1X,/,2X,8H  ISYM  =  ,15,/) 
1020  FORMAT  ( 10X , /, 2X, 8HF SUBC  =  ,F10.7,/, 

2X,8HFSUBT  «  ,F10.7,/, 

2X,8H   ALS  *  ,F10.7,/, 

2X,8H  DELT  =  ,F10.7,/) 


ORM 

036 

ORM 

037 

ORM 

038 

ORM 

039 

ORM 

040 

ORM 

041 

ORM 

042 

ORM 

043 

OPM 

044 

ORM 

045 

ORM 

046 

ORM 

047 

ORM 

048 

ORM 

049 

ORM 

050 

ORM 

051 

ORM 

052 

ORM 

053 

ORM 

054 

ORM 

055 

ORM 

056 

ORM 

057 

ORM 

058 

ORM 

059 

ORM 

060 

ORM 

061 

ORM 

062 

ORM 

063 

ORM 

064 

ORM 

065 

ORM 

066 

ORM 

067 

ORM 

068 

ORM 

069 

ORM 

070 

ORM 

071 

ORM 

073 

ORM 

074 

ORM 

075 

ORM 

076 

ORM 

077 

ORM 

078 

ORM 

079 

ORM 

080 

ORM 

081 

ORM 

082 

ORM 

083 

ORM 

084 

ORM 

085 

ORM 

oe7 

ORM 

088 

ORM 

089 

ORM 

090 

OPM 

091 

ORM 

092 

ORM 

093 

ORM 

094 

ORM 

095 

ORM 

096 

ORM 

097 

ORM 

098 

ORM 

099 

ORM 

100 

ORM 

101 

ORM 

102 

ORM 

103 

ORM 

104 
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1030  FORMAT  ( IX, / , 1  OX. 2 1H0RMSBY  FILTER  WEIGHTS/)  OPM  105 

1040  FORMAT  (1X.8F10.6)  ORM  106 

1048  FORMAT  ( IX ,/, 10X, 30H0RMSB Y  FILTERED  DATA  AT  .1  SEC/)  ORM  107 

1050  FORMAT  ( IX, / , 10X, 30H0RMS B Y  FILTERED  DATA  AT  .2  SEC/)  ORM  108 

1060  F0RMAT((1X,4(2F10.3) ) )  OPM  109 

1070  F0RMAT(1X,/,10X,27H0RMSBY  FILTER  ROUTINE  -  N  «,I5//)  ORM  110 

1080  FORMAT  ( IX, / /, 10X, 24HSUM  OF  ORMSBY  WEIGHTS  IS,E12.5//)  ORM  111 

1090  FORMAT  (  /  ,  10X,  3HTH E , I  5, 48HF IL TER  WEIGHTS  CENTER  AND  RIGHT  OF  CENTE  ORM  112 

.R  FOLLOW/)  ORM  113 

RETURN  OPM  114 

END  ORM  115 


SUBROUTINE  HORIZ  (NPASS)  HOR  001 
IMPLICIT  REAL*4  (A-H.O-Z) 

C      THIS  SUBROUTINE  REPLACES  THE  CURRENT  HORIZONTAL  EASELINE  WITH  A     HOR  002 

C      NEW  HORIZONTAL  BASELINE  SUCH  THAT  THE  AREA  UNDER  THE  ACCELERATION   HOR  003 

C      CURVE  IS  ZERO.  HOR  004 

C  HOR  005 
COMMON  ACCEL (5 500), TIME (5 500), TITLE (20), RET (3000), TEMP (3000), LAST 

C 

C 

C  HOR  009 

IF(NPASS  .EO.  2)  GO  TO  50  HOR  010 

IF  (NPASS  .EO.  5)  GO  TO  70  HOR  Oil 

IF  (NPASS  .EO.  6)  GO  TO  90  HOR  012 

C  HOR  013 

N  =  LAST/2  HOR  014 

DT  =  0.02  HOR  015 

C  HOR  016 

AREA  =  0.0  HOR  017 

C  HOR  018 

DO  10  1=1, N  HOR  019 

10  AREA  =  AREA  +  (TEMP(I)  +  TEMP ( 1+ 1 ) ) *DT/2 . 0  HOR  020 

C  HOP  021 

NP1  =  N  +  1  HOR  022 

CORREC  =  AREA/TIME(NP1)  HOR  023 

20  WRITE  (3,1020)  AREA  HOP  024 

WRITE  (3,1030)  CORREC  HOR  025 

C  HOR  026 

DO  30  1=1, NP1  HOR  027 

RET(I)  =  ACCEL(I)  -  CORREC  HOR  028 

30  ACCEL(I)  =  RET(I)  HOR  029 

LLAST  =  LAST  -  8  HOR  030 

WRITE  (3,1060)  HOR  031 

WRITE  (3,1040)  HOR  032 

WRITE  (3,1010)  (TIME(I),  RET(I),  1=1,8)  HOR  033 

WRITE  (3,1010)  (TIME(I),  RET(I),  1  =  LLAST, L AST )  HOR  034 

C 

IF  (NPASS  .EO.  5)  GO  TO  68  HOR  036 

C  HOR  037 

C      INTEGRATE  TO  GET  VELOCITY  HOR  038 

C  HOR  039 

TEMP(l)  =  0.0  HOR  040 

C  HOR  041 

DO  40  1=1, N  HOR  042 

DT  =  TIMEd  +  1)  -  TIME(I)  HOR  043 

40  TEMPU+1)  =  TEMP(I)  +  (RET(I)  +  R  E  T  (  1  +  1 )  )  *DT*0.  5                     HOR  044 

WRITE  (3,1070)  HOR  045 

WRITE  (3,1050)  HOR  046 

WRITE  (3,1010)  (TIME(I),  TEMP(I),  1=1,8)  HOR  047 

WRITE  (3,1010)  (TIME(I),  TEMP(I),  I«LL AST, LAST )  HOR  048 

C 

RETURN  HOR  050 

50  CONTINUE  HOR  051 

N  =  LAST/2  HOR  052 
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60 


68 
70 


80 


90 


100 


RET(l)  =  0.0 

DO  60  1=1, N 

DT  =  TIME< 1+1)  -  TIME(I) 

RETd  +  1)  *  RET(I)  +  UCCEL(I)  +  ACCELd  +  1 

WRITE  (3,1070) 

WRITE  (3,1050) 

WRITE  (3,1010)  (TIME(I),  RET(I),  1=1,8) 

WRITE  (3,1010)  (TIME(I),  RET(I),  I=LL AST, LAST ) 


RETURN 

N  =  LAST 

DT  =  0.01 

AREA  =  0.0 

DO  80  1=1, N 

AREA  =  AREA  +  (ACCEL(I) 

CORREC  *  AREA/TIMEJN) 

GO  TO  20 

N  =  LAST/2 

DT  =  0.02 

AREA  *  0.0 

DO  100  1=1, N 

AREA  =  AREA  +  (ACCEL (I) 

CORREC  =  AREA/TIME(N) 

GO  TO  20 


+  ACCELd+1)  )*DT/2.0 


+  ACCELd  +  1)  )*0T/2.0 


1010 
1020 
1030 
1040 
1050 
1060 
1070 


F0RMAT((1X»8(F8.3,F9.3)  )) 

FORMAT  <1X,/,10X,9H   AREA  =  ,F10.6) 

(10X,9HC0RREC  =  ,F10.6) 

(  5X»4HTIME,4X,5HACCEL) 

(5X,4HTIME,6X,3HVEL) 

(1X,/,10X,42HACCEL  ADJUSTED  FO-R  ZERO 

(1X,/,10X,29HINTEGRATED  VELOCITY  VIA 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
END 


HOR 

053 

HOR 

054 

HOR 

055 

DT*0.5 

HOR 

056 

HOR 

057 

HOR 

058 

HOR 

059 

T) 

HOR 

060 

HOR 

062 

HOR 

063 

HOR 

064 

HOR 

065 

HOR 

066 

HOR 

067 

HOR 

068 

HOR 

069 

HOR 

070 

HOR 

071 

HOR 

072 

HOR 

073 

HOR 

074 

HOR 

075 

HOR 

076 

HOR 

077 

HOR 

078 

HOR 

079 

HOR 

080 

HOR 

081 

HOR 

082 

VELOCITY  VIA  HORIZ/)    HOR 

083 

HORIZ/) 

HOR 

084 

HOR 

085 

SUBROUTINE  PLTDAT  ( NPLOT, DELT, XRED, YRE D, N02 1 
IMPLICIT  REALM  (A-H.O-Z) 

THIS  SUBROUTINE  PLOTS  THE  FILTERED  GROUND  ACCELERATION, 
VELOCITY  ANT)  DISPLACEMENT  FOR  THE  DIGITIZED  SEISMIC  DATA. 
IN  ADDITION,  THE  ORMSBY  LOW-PASS  FILTER  IS  SHOWN. 

COMMON  ACCEL8 ( 5500 ), T I  ME ( 5500 ), TITLE ( 20 ),VEL4( 3000 ),DISP( 3000), 
1LAST 
COMMON /PLTBUF/ I BUF( 1000) 
COMMON  /ORMS/  WTS(275),NN 

N  =  N02  -  1 
WRITE  (3,4000)  N 

LAST  =  N 
DO  6  1=1, N 
6  TIME(I)=(I-1)*DELT 

SIZE  =  3.0 
XLEN  =  12.0 


11 


CALL  PL0TS(IBUF,1000,5) 

IF  (XRED  .EO.  1.0  .AND.  YRED 

CALL  SETFACT  (XRED, YRED) 

IF  (NPLOT  .EO.  4)  GO  TO  55 

CALL  PLOT  (0.,-ll.,-3) 

CALL  SCALE  ( TIME, XL  EN, LAST, 1 ) 

CALL  SCALE  ( ACCEL8, S  I  ZE, L AST, 1 ) 

PLOT  ACCELERATION 


.EO.  1.0)  GO  TO  8 


PLT  001 

PLT  002 

PLT  003 

PLT  004 

PLT  005 

PLT  006 


PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 


008 
009 
010 
Oil 
012 
013 
014 
015 
016 
017 
018 
019 


PLT  021 

PLT  022 

PLT  023 

PLT  024 


PLT  027 
PLT  028 
PLT  029 
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COR    =    10.5-SIZE 
CALL    PLOT    (O.O, COR, -3) 

CALL    AXIS     (0.0,3.0,"     "  ,  1, XL  EN , 0. ,  T I  ME ( L AST  +  1 ) , T I  ME ( L AST* 2 )  ) 
CALL    AXIS    (0.0,0.0.  "GRD    ACCEL     IN    G"    , 1  4, S I ZE , 90. , ACC EL8 ( L AST-U  ) , 
1    ACCEL8(LAST+2) > 
CALL    LINE     (TIME, ACCEL8, LAST, 1.0.0) 
BSLINE    =    ABS(ACCEL8(LAST+l)/ACCEL8(LAST+2) ) 
CALL    PLOT    (XLEN, BSLINE, 3) 
CALL    PLOT    (0.0, BSLINE. 2) 

CALL    SYMBOL     ( 0. 0,-0 . 5,0.2 5, TITLE, 0. , 80  ) 
CALL    PLOT    (0., -9. 0,-3) 
IF     (NPLOT    .EO.     1)    GO    TO    999 

PLOT    VELOCITY 

SIZE    =    (9.0-SIZEI/2.0 
COR    =    SIZE    +    1.0 
CALL    PLOT    (0.,C0R,-3) 
CALL    SCALE     (  VE  L4,  S  I  Z  E,  L  AST,  1 ) 
DIVY    =    10.0 

CALL    AXIS     (0.0,0.0,"VEL.     IN    CM/SEC." 
1    VEL4,LAST+2) ) 
CALL    LINE    (TIME,  VEL4,  LAST,  1,0,0) 
BSLINE    =    ABS(VEL4(LAST+1)  /  VEL4 ( L AST  +  2 >  ) 
CALL    PLOT    (XLEN, BSLINE, 3) 
CALL    PLOT    (0.0, BSLINE, 2) 
CALL    PLOT    (0., -5. 0,-31 

PLOT    DISPLACEMENT 


PLT    030 
PLT    031 


,15,SIZE,90.,VEL4(LAST+1), 


CALL    PLOT     (0.,0.5,-3) 
CALL    SCALE     ( DI SP, S I ZE, LAST, 1 ) 
CALL    AXIS     (0.0, 0.0, "TIME    IN    SECONDS" 
1    TIME(LAST+2) ) 


,-15,XLEN,0.,TIME(LAST+l), 


DIVY  =  10.0 

CALL  AXIS  (0.0,0.0,"DISP. 
1AST  +  2)  ) 
CALL  LINE  (TIME,  DI SP, LAST, 1, 0, 0) 
BSLINE  =  ABS(DISP(LAST+1) /D ISP ( L AST+ 2 ) ) 
CALL  PLOT  (XLEN, BSLINE, 3) 
CALL  PLOT  (0.0,BSLINE>2) 
CALL  PLOT  (0., -0.5,-3) 
IF  (NPLOT  .EO.  2)  GO  TO  999 


IN  CM."  ,12,SIZE,90.,DISP(LAST*1),DISP(L 


55 


PLOT  ACCEL5 

START5  *  XLEN  +  2.0 
CALL  PLOT  (STARTS, 5.0,-3) 
CALL  SCALE  ( TIME , XL  EN , NN, 1 ) 
CALL  AXIS  (0.0,0.0, "TIME  IN 

1  TIME(NN+2>) 
CALL  SCALE  (WTS,5,,NN,1) 
CALL  AXIS  (0.0,0.0," FILTER 

1) 
CALL 
CALL 
CALL 


SECONDS"  ,-15,XLEN,0.,TIME(NN*l), 


WEIGHTS"  >14,5.,90.,WTS(NN+l)»WTS(NN+2) 


999 


4000 


LINE  (TIME, WTS.NN, 1,0,0) 

SYMBOL  (2.0,5.0,0.25,TITLE»0.,80) 

SYMBOL  (2.0,-2.0,0.25,"0RMSBY  FILTER" 

CONTINUE 

CALL  PL0T(20.0,0.0,999) 


,0.0,13) 


FORMAT 
RETURN 
END 


<1X»/,10X,1<.HPL0T  DATA   N  «,I6) 


PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 


035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 


PLT  049 


PLT  052 

PLT  053 

PLT  054 

PLT  055 

PLT  056 

PLT  057 

PLT  058 

PLT  059 

PLT  060 


PLT  064 


PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 
PLT 


067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 


PLT  084 

PLT  085 

PLT  087 

PLT  089 

PLT  090 

PLT  091 

PLT  092 
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To  compile  the  program  for  the  CDC  6400  machine, 

the  unlabelled  statements  (those  not  containing  a  name  and 

number  in  columns  73  through  80)  should  be  removed  and  the 
following  statements 'inserted  in  their  sequence  locations. 

PROGRAM  DAISMM INPUT* 129, OUTPUT* 1 29, PLOT* PUNCH. TAPE  1  =  INPUT,  DAI  001 

.TAPE3=0UTPUT,TAPE5=PL0T,TAPE7)  DAI  002 

COMMON  ACCEL(5500),TIME(5500),TITLE(8),VEL(3000),DISP(3000),LAST  DAI  036 

COMMON  ACCEL(5500)  , TIME ( 5500) , TI T LE ( 8 ) ,VEL ( 3000 ), DISP ( 3000 ), LAST  PHI  008 

10  READ  (1,2050)  (TITLE(I),  1  =  1,8)  PHI  014 

IF  (E0F(1) )  20,30  PHI  015 

CALL  REMARK  (31HN0RMAL  TERMINATION,  END  OF  DATA)  PHI  017 

30  WRITE  (3,2060)  (TITLE(I),  1=1,8)  PHI  019 

IF  (NPUNCH  .EO.  1  .OR.  NPUNCH  .EO.  2)  PUNCH  2050*  ( T ITLE  ( I  ) , I* 1 , 8 )  PHI  057 

IF  (NT  .GE.  2998)  60,70  PHI  071 

70  READ  (7,2040)  TIME(NT),  ACCEL(NT)  PHI  074 

IF(E0F(7))  80,50  PHI  075 

IF  (NT  .GE.  749)  90,100  PHI  082 

100  READ  (1,1000)  (TIME(NT*4+I), ACCEL (NT+4+ I ) ,  1*1,4)  PHI  086 

IF(E0F(1))  110,85  PHI  087 

READ  (1,1000)  (X(NX*4+I),  Y(NX*4+I),  1=1,4)  PHI  123 

IF(E0F(1))  190,180  PHI  124 

380  CALL  INITIAL  (0,5,0.3,0,0)  PHI  228 

CALL  AXIS  (0.,0.0,19HREL.  TIME  IN  COUNTS, -19, XLEN, 0. , XMIN, SCALX,  PHI  234 

.20.0)  PHI  235 

CALL  AXIS  (0.,0.0,21HREL.  ACCEL.  IN  COUNTS, 2 1, SI ZE, 90 ., YMIN, SCALY,  PHI  236 

.10.)  PHI  237 

IF  (LAST  .GT.  200)  400,410  PHI  239 

440  CALL  ENDPLT  PHI  262 

2050  FORMAT  (  8A10)  PHI  2P7 

2060  FORMAT  (1H,8A10,//)  PHI  288 
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SUBROUTINE  TRKOIO 
++*****«*«****♦***+***♦******♦******«♦*************♦***♦**********  TK1  003 

THIS  SUBROUTINE  READS  DATA  FROM  AN  ELECTRAK  DATA  TAPE  AND  OUTPUTS 
ON  TAPE  7  DATA  WHICH  IS  IN  A  FORM  ACCESSIBLE  BY  PHASE1  PROGRAM. 
THIS  PROGRAM  IS  A  PATTERN  MATCH  PROCEDURE.  PROBABLY 

BETTER  SUITED  TO  WRITING  IN  SN0B0L4.   THE  TARGET  PATTERN  IS 
ZZZZZZZNNNNSNNNNNSNNNNNCCCCCCCCCCCCCCCCCCCCZZZZ. .  . 

A  A  A 

WHERE   Z  IS  ANY  CHARACTER 

N  IS  ANY  DECIMAL  DIGIT 

S  IS  A  SIGN  (+  OR  -,  <-  READS  AS  A  ;><+   READS  AS  A  ]>  ) 

C  IS  A  SET  OF  CHARACTERS  ASSOCIATED  WITH  THE  NUMBER 

THE  GOAL  IS  TO  OUTPUT  RECORDS  OF  THE  ENTIRE  36  CHARACTER 

RECORD  AND  THE  COMMENTS  BETWEEN  THIS  AND  THE  PRECEEDING 

PATTERN.   THESE  RECORDS  ARE  OUTPUT  ON  TAPE7. 

**♦********  +  *****«*«**  +  *  +  ****+«**«<<****  +  ****  +  +  «<<♦****  +  *♦**♦**  +  +  *♦♦ 

IMPLICIT  INTEGER  ( A-Z  ) 

DIMENSION  BUFS(IOOO) 

DIMENSION  DAT(8) 

EaUIVALENCE(DAT(l)»WDl)»(DAT(2),WD21,(DAT(3)»CWDl),(DAT(4),CWD2) 

FGET(WD,N,V)=(WD.A..N.SHIFT(77B,60-N) ) .OR . SHI  FT ( V, 6  0-N ) 

DATA  P0S,LSTP0S/2*0/,  TARG1,  T  ARG2  ,  I,  RC  119.1 1 1R  ;  »  1/  0/ 

REWIND  7 
10  BUFFERIN  (1,0)  ( BUF S ( I ) , BUF S ( 1 000 ) ) 
IF  (UNIT(D)  100,20,90 

20  WRITE  (3,21) 

21  FORMAT  (1X,/,10X,*END  OF  TAPE*,//) 
RETURN 

90  CALL  REMARK  (20HTRAK1,  PARITY  ERROR  ) 
100  CALL  LENGTHXQ,  SIZE,  WASTE) 

RC=RC+1 

IF  (WASTE  .NE.  0)  PRINT  110,  WASTE 
110  FORMAT  (*   $$UNUSED  BITS  IN  LAST  READ:*I4) 

LIMET=SIZE+I-1 

J  =  l 
150  WD=BUFS(J1 

THIS  LOOP  SEEKS  A  PAIR  OF  SIGNS  (+,-)  SEPARATED  BY  5  CHARACTERS 
SINCE  ELECTRAK  -  SIGNS  READ  AS  •;'  THEY  ARE  REPLACED  BY  •-' 
AND  +  SIGNS  READ  AS  •]'  THEY  ARE  REPLACED  BY  THE  •+•. 
THIS  CONVERSION  IS  GLOBAL,  I.E.  IT  IS  DONE  WHETHER  OR  NOT 
THE  PATTERN  SEARCH  SUCCEEDS  (N  POINTS  TO  THE  FIRST  SIGN). 

DO  350  N«=6,60,6 

CHAP=SHIFT(WD,N).AND.77B 

IF  (CHAR  ,NE.  TARG1)  GO  TO  260 

BUFS(J)»FGET(BUFSU),N,45B) 

GO  TO  270 
260  IF  (CHAR  .NE.  TARG2)  GO  TO  350 

BUFS(J)=FGET(BUFS(J),N,46B) 
270  JJ=J   S   NN-N+36 

IF  (NN  .LE.  60)  GO  TO  280 

NN=NN-60 

JJ=JJ+1 
2  80  CHAR2  =  SHIFT(BUFS(JJ),NN)  .AND.77B 

IF  (CHAR2  .NE.  TARG1)  GO  TO  3*0 

BUFS(JJ)*FGET(BUFS(JJ),NN,45B) 

GO  TO  450 
340  IF  (CHAR2  .EO.  TARG2)  GO  TO  400 
350  CONTINUE 

PATTERN  MATCH  HAS  FAILED 
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010 
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013 
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014 
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016 
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017 
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018 

TK1 
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TK1 

020 
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023 
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025 
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031 
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032 
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033 
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034 
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036 
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041 
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043 
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044 
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045 
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046 
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049 
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050 
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054 
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055 
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056 
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057 
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GO  TO  1000 

PATTERN  MATCH  HAS  SUCCEFDED 

400  BUFS(JJ)=FGET(BUFS(JJ),NN,4  6B> 
450  WD=BUFS(J) 


THE  COMPUTED  GOTO  BRANCHES  TO  THE  APPROPRIATE  MASK  CODE 
FOR  THE  POSITION  OF  THE  FIRST  SIGN.   THIS  CURSER  LOCATION 
CONTINUES  ALL  THE  SHIFT-MASK  OPERATIONS. 

GO  TO  (470, 470,470, 470, 480, 480, 485, 490, 490, 500), N/6 
470  WD1  =  SHIFT(BUFSU-1)  . A  .  .N. MASK ( 30  +  N ) , 18  +  N )  .OR.  SHI  FT  (WD 
1. AND.MASMN+18) »N+18> 

WD2=SHIFT(8UFS(J+1).AND.MASK(N+6),N+6).0R.(SHIFT(WD.A..N.MASK 
1(N+18),6+N) ) 
GO  TO  520 
4  80  WD1=SHIFT(WD,N+18) . A . 7777777777777777B 
WD2=SHIFT(WD.A..N.MASK(N+18),N+6) 
l.OR.  (SHIFT(BUFS(J+l),N+6)  .AND.  .N  .  MASK  (54--N  )  ) 
GO  TO  520 
485  WD1=WD.AND.7777777777777777B 

W02=SHIFT(BUFS(J+1) , 48 ) . AND . 7777777777777777B 
GO  TO  520 
490  WD1=SHIFT(WD.A..N.MASK(N-30),N-42).0R.SHIFT(BUFS( J+l) 
1. AND. MASK (N-42) »N-4  2) 
WD2=SHIFT(BUFS( J+l ) , N+6 ) . AND. 7  777777777777777B 
GO  TO  520 
500  WD1*SHIFT(WD.AND..N.MASK<30),18) . OR . SHI  FT ( BUFS ( J  +  l ) 
l.AND.MASK<18),18) 

WO  2  =  SHIFT (BUFS (J  +  l) .A..N.MASK(18),6).0R.(SHIFT(BUFS(J+2>»6> 
1.AND.77B) 

THIS  IS  A  RELATIVELY  RELIABLE  WAY  TO  TEST  FOR  THE  TARGET 
PATTERN.   THE  PREVIOUS  STATEMENTS  PUT  THE  16  OIGITS  OF  THE 
TARGET  INTO  2  WORDS  OF  MEMORY,  WD1  AND  WD2.   THESE  WORDS  ARE 
IN  8RZZZZZZZZ  FORMAT. 

520  DO  540  M=18,60,6 

TEST=( SHIFT (WD1,M) . AND .77B ) -3 3B 

IF  (TEST  -.LT.  0  .OR.  TEST  .GT.  13B)  GO  TO  800 

TEST* ( SHIFT (WD2,M) .AND. 77BJ-33B 

IF  (TEST  .LT.  0  .OR.  TEST  .GT.  13B)  GO  TO  800 

540  CONTINUE 

WRITE  (7,700)  (DAT< JB),JB=1,2) 

700  FORMAT  (2R8) 

WRITE  (3,701)(DAT( I ),  1=1,2) 

701  FORMAT  (1X,2R8) 
J=JJ+1 

IF  (J  .GT.  LIMET-4)  1010,150 

800  PRINT  801,BUFSU-1),BUFS(J),BUFS(  J+1),N,J,RC 

801  F0RMAT(3(2X,020)»*   BIT  C0UNT=*I2,*:   BUFFER  L0C=*I3, 
1  *;   RECORD  C0UNT=*I4) 

1000  J  =  J  +  1 

IF  (J  .GT.  LIMET-4)  1010,150 
1010  1=1 

IF  (LIMET-JJ  .GT.  15)  JJ=LIMET-6 

DO    1050    N=JJ,LIMET 

BUFSU  )  =  BUFS(N) 

1  =  1  +  1 

1050  CONTINUE 
GO  TO  10 
END 
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COMMON  ACCEL(5500)  , T  I  ME ( 5500 > » TITLE (8 > » VEL ( 3000 ), DISP ( 3000 ), L AST  PH2  016 

READ  (1,1090)  (TITLE ( I )»  1  =  1»  8 )  PH2  029 

WRITE  (3,2000)  (TITLE(I),  1=1.6)  PH2  030 

78  IF  (T  .LE.  0.0  .OR.  CO  .LE.  0.0)  110,90  PH2  153 

1090  FORMAT  (  8A10)  PH2  490 

2000  FORMAT  (1H,8A10,//)  PH2  491 

COMMON  ACCEL(5500) , TIME ( 5500) , TI T LE ( 8 ), VEL ( 3000) , DISP ( 3000 ), L AS T  RED  006 

READ(1,1000)(TIME(NT*4+I), ACCEL ( NT+4+I ) , 1= 1, 4 )  RED  012 

IF(E0F(1))20,10  RED  013 

IF  (LAST  ,6T.  2998)  30,40  RED  019 

IF  (XN  .GT.  54.95)  50,60  RED  024 

CALL  REMARK  (28HINPUT  DATA  OVERLOADS  PROGRAM)  RED  029 

COMMON  ACCEL(5500) » T  IME ( 5500) , TI TLE ( 8 ), VEL ( 3000) , DISP ( 3000 ), LAST  DAT  005 

COMMON  ACCEL(5500)»TEMP(5500),TITLE(8),VEL(3000),TIME(3000),LAST  EOL  008 

COMMON  ACCEL(5500) , TI ME ( 5500) , TITLE ( 8 ), VEL ( 3000 ), TE MP ( 3000 ), L AST  LES  006 

IF  (TIME(I)  .GE.  0.0)  20,10  LES  017 

IF  (DENOM  .EQ.  0.0)  50,60  LES  042 

COMMON  ACCEL(5500)  , T  I  ME ( 5500 ) , TI TLE ( 8 ) , VEL ( 3000 ) , DISP ( 3000 ) » L AST  INT  008 

COMMON  ACCEL2(5500),ATEMP(5500),TITLE(8),ACCEL5(3000),D( 3000), LAST  HOL  008 

IF  (KK  .GT.  N)  10,20  HOL  026 

IF  (KK  .LE.  0)  30,40  HOL  033 

COMMON  ACCEL(5500). ATEMP ( 5500 ), TI TLE ( 8 ), VEL ( 3000 ), DISP ( 3000) , LAST  ORM  012 

IF  (KK  .GT.  N)  40,50  ORM  072 

IF  (KK  .LE.  0)  80,90  ORM  086 

COMMON  ACCEH5500)  ,  T I  ME  (  5500 ) »  T I  TLE  (  8  )  ,  RET  (  3000  )  ,  TEMP  (  3000  )  ,  L  AS  T  HOR  006 
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COMMON  ACCEL8(5500),TIME(5500),TITLE(8), VEL4 ( 3000) ,DI SP ( 3000 ), LAST  PLT  007 

CALL  INITIAL  ( 0,5, 0 . 3 , 0, 0 )  PLT  020 

11  CALL  SCALE  ( TIME, XL  EN, LAST, 1, 20.0 )  PLT  025 

CALL  SCALE  ( ACCEL8 » SI ZE, L AST, 1, 10. )  PLT  026 

CALL  AXIS  (0.0, 3.0, 1H  , 1, XLEN, 0. , TIME ( L AST  +  1 ) , T IME ( L AST+2 > , 10  . )  PLT  032 

CALL  AXIS  <0.0,0.0,14HGRD  ACCEL  IN  G,  14,  SIZE,  90 .»  ACCEL  8(  L  AST+1 )  ,  PLT  033 

1  ACCEL8(LAST+2),10.0)  PLT  034 

CALL  SCALE  < VEL4, S I ZE, LAST, 1,  10. 0 )  PLT  048 

CALL  AXIS  (0.0,0.0, 15HVEL.  IN  CM/SEC,  15, SIZE,  90. , VEL4 ( L AST+1 ) ,  PLT  050 

1  VEL4(LAST+2),DIVY)  PLT  051 

CALL  SCALE  ( OISP, SI ZE, L AST, 1, 10. )  PLT  061 

CALL  AXIS  (0.0,0.0, 15HTIME  IN  SECONDS, -15, XLEN, 0. , TIME ( L AST+1 ) ,  PLT  062 

1  TIME(LAST+2),10.0)  PLT  063 

CALL  AXIS  (0.0,0.0, 12HDISP.  IN  CM.,  12, SIZE,  90. , DISP ( L AST+1 ), DISP  PLT  065 

1(LAST+2),DIVY)  PLT  066 

CALL  SCALE  ( TIME, XL  EN, NN, 1, 10. )  PLT  078 

CALL  AXIS  (00.0,0. 0,15HTIME  IN  SECONDS, -15, XL  EN, 0. , TIME ( NN+ 1 ) ,  PLT  079 

1  TIME(NN+2),10.0)  PLT  080 

CALL  SCALE  ( WTS, 5 . , NN  ,  1, 10.  )  PLT  081 

CALL  AXIS  <0.0*,0.0.14HFILTER  WEIGHTS,  14,5.,  90  .,  WTS  (  NN+ 1 )  ,  WTS  (  NN+  PLT  082 

12), 10.0)  PLT  083 

CALL  SYMBOL  ( 2 . 0,-2 . 0, 0.2 5, 1 3H0RMSBY  F ILTER, 0 . 0, 1 3 )  PLT  086 

CALL  ENDPLT  PLT  088 

If  library  program  IMSL  is  available  on  the  CDC  computer 
then  the  addition  of  the  following  statements  will  produce  a  printer 
plot  similar  to  Figure  51-a. 


DATA  PTITLE/160*"  "/ 

CALL  USPLH  (TEMP, ACCEL, M, 1,1,1, TITLE, ITEMP,IEP) 

COMMON  /DRAW/  ITEMP ( 5151 ), PTITLE ( 160 ) 

DATA  PTITLE/160*"  "/ 

CALL  USPLH  (TIME, RET, NP1, 1, 1, 1, TITLE, ITEMP, IER) 

CALL  USPLH  (TIME, TEMP, N,l, 1,1, TITLE, ITEMP, IER) 


EOL  010 

EOL  039 

LFS  008 

LES  009 

LES  065 

LES  083 
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CALL  USPLH  (TIME, RET, NP1,1, 1, 1 , T I TL E , I  TEMP, I ER  ) 

COMMON  /DRAW/  ITEMP ( 5151) , PTITLE ( 160 ) 

OATA  PTITLE/160*"  " / 

CALL  USPLH  (TIME, RET, LAST, 1,1,1, TITLE, ITEMP,  IER) 

CALL  USPLH  (TIME, TEMP, LAST, 1,1,1, TITLE, ITEMP,  IER) 

CALL  USPLH  (TIME, RET, LAST, 1,1,1, TITLE, ITEMP, IER) 

DIMENSION  ITEMP (5151), PTITLE(160) 

DATA  PTITLE/160*"  "/ 

CALL  USPLH  (TIME, ACCEL,  LAST,  1, 10, 1, PTI TLE , I  TEMP, IER ) 

CALL  USPLH  (X,Y,   NF X TRC , 1 , 1, 1 , P T I TL E, ITEMP ,  I  ER  ) 

CALL  USPLH  (TIME, ACCEL,  LAST,1,  1, 1, PT ITLE,  I  TEMP,  I  ER  ) 

COMMON  /DRAW/  I  TEMP ( 5 151 ) , P TI TLE ( 160 ) 

DATA  PTITLE/160*"  "/ 


CALL  USPLH  (TIME, ACCEL 
CALL  USPLH  (TIME, ACCEL 
CALL  USPLH  (TIME, ACCEL 
CALL  USPLH  (TIME, ACCEL 
CALL  USPLH  (TIME, ACCEL 
CALL  USPLH  (TIME, ACCEL 
CALL  USPLH  (TIME, ACCEL 
CALL  USPLH  (TIME, ACCEL 
CALL  USPLH  (TIME,VEL 
CALL  USPLH  (TIME, ACCEL 
CALL  USPLH  (TIME,VEL 
CALL  USPLH  (TIME,DISP 
CALL  USPLH  (TIME, ACCEL 


N02,l,l, 1, TITLE 
N02, 1,1,1, TITLE 
N02, 1,1,1, TITLE* 
N02, 1,1,1, TITLE 
N02,l,l, 1, TITLE 
N02,l,l, 1, TITLE 
N02,l,l, 1, TITLE 
N02, 1,1,1, TITLE 
N02, 1,1,1, TITLE 
N02, 1,1,1, TITLE 
N02, 1,1,1, TITLE 
N02, 1,1,1, TITLE 
N02,l,l, 1, TITLE 
N02, 1,1,1, TITLE 
N02, 1,1,1, TITLE 


, ITEMP, 

IER) 

,ITEMPi 

IER) 

ITEMP,] 

ER) 

, ITEMP. 

IER) 

, ITEMP, 

IER) 

,  ITEMP, 

IER) 

, ITEMP, 

IER) 

, ITEMP, 

IER) 

, ITEMP, 

IER) 

, ITEMP, 

IER) 

, ITEMP, 

IER) 

, ITEMP, 

IER) 

,  ITEMP, 

IER) 

, ITEMP, 

IER) 

,  ITEMP, 

IER) 

CALL  USPLH  (TIME,VEL 

475  CALL  USPLH  (TIME,DISP 

COMMON  /DRAW/  ITEMP ( 5 151 ) , PT I TLE ( 160 ) 

DATA  PTITLE/160*"  "/ 

CALL  USPLH  (TIME, ACCEL,   L AST, 1, 1 , 1, TITLE , ITEMP, I ER ) 

COMMON  /DRAW/  I  TEMP ( 51 51 ) , P T I TLE ( 160  ) 

DATA  PTITLE/160*"  "/ 

CALL  USPLH  (TIME, ACCEL,   L AST, 1, 1 » 1 , TITLE , ITEMP, I ER ) 

COMMON  /DRAW/  I  TEMP ( 5 151) , P TI TLE ( 160 ) 
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IBM  360/370  CONTROL  STATEMENTS  FOR  PROGRAM  DAISMA 

//MIKLOF        JOB    T-675--MIKL0F,'MIKL0F' , 
//      CLASS=A 

//  EXEC      PR0C=UT6FLG,PARM.F0RT=N0DECK 

//FORT.SYSIN        DD    * 

SOURCE  DECK 


//G0.FT03F001  dd  sysout 

//G0.FT03F001  DD  SYS0UT  =  A  ,DCB= (RECFM=VBA ,BLKSIZE=2000) 

//FT01F001  DD  * 

//FT05F001  DD  SYS0UT  =  B  ,  DCB= ( FUNC  =  I ) 

//FT02F001   DD   SYS0UT=8 

//FT06F001   DD   DSN= INPUT  ,UNIT  =  TAPE  ,DI SP  =  0LD ,LABEL= (2 , BLP ) , 

//   V0L=SER=INPUT,DCB=(RECFM=F,LRECL=5040,BLKSIZE=5040) 

//FT06F002   DD   DSN= INPUT , UNIT=AFF=FT06F001 ,DI SP=0LD ,LABEL= ( 3 ,BLP ) , 

//   V0L  =  SER'=INPUT,DCB=(RECFM=F,LRECL  =  5040,BLKSIZE  =  5040) 

//FT07F001  DD   DSN=£&DI SK07 ,UNIT=SYSDA ,DI SP= ( .DELETE ) , 

//    SPACE=(CYL,5) 


/* 


DATA  DECK 


II 
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CONTROL  STATEMENTS  FOR  COMPILING  DAISMA  ON  CDC  6400  COMPUTER 

JOBCARD-NAME,    BN ?CM117000  ST20 . 

FTN  (B=PUNCHBS  0PT=1 ) 
789    (ALL  IN  COLUMN  ONE) 

OBJECT  DECK 
6789    (ALL  IN  COLUMN  ONE) 


CONTROL  STATEMENTS  FOR  DATA  INPUT  CDC  6400 

JOBCARD-NAME,  BN ,  CM112000,  T70. 

INPUT. 

789    (ALL  IN  COLUMN  ONE) 

IF  AN  ISML  LIBRARY  PROGRAM  IS  AVAILABLE  THEN 

USE  THE  FOLLOWING  CONTROL  STATEMENTS  TO 

PRODUCE  A  PRINTER  PLOT 

JOBCARD-NAME3  BN ?  CM1 1 7000,  T70 . 

ATTACH (IMSL) 
LDSET (LIB=IMSL) 
INPUT. 

BINARY  DECK 
789    (ALL  IN  COLUMN  ONE) 

DATA  DECK 
6789    (ALL  IN  COLUMN  ONE) 
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APPENDIX  E 


TRAK  010  SUBROUTINE 


1.1     Introduction 


TRAK  010,  written  by  Steve  Kutoroff  of  Watershed  Research, 
is  a  specialized  subroutine  that  reads  and  analyzes  data 
digitized  on  an  Electrak  digitizing  machine.*  The  program  is 
specialized  in  that  it  is  for  use  only  on  data  that  has  been 
taken  by  this  type  of  machine.   The  digitized  data  is  recorded 
on  a  7-track  magnetic  tape  in  coded  form  and  must  be  trans- 
formed into  a  general  format  so  that  it  can  be  used  by  the 
final  stages  of  processing  in  programs  PHASE1  and  PHASE2 
for  correction  and  integration. 

TRAK  010  is  written  in  the  Fortran  IV  programing  language 
and  utilizes   the  fastest  commands  possible  to  read  and  analyze 
the  data,  i.e.,  buffering,  shifting,  and  masking.   In  general, 
the  shift  and  mask  functions  are  Fortran  intrinsic  functions 
similar  to  ABS  and  SQRT  that  return  a  single  value.   The 
function  SHIFT  (A1,A2)  commands  the  sixty  bits  of  word  Al  to 
move  left  circular  A2  number  of  bit  positions.   If  A2  is  nega- 
tive, the  shift  will  move  right,  drop  A2  number  of  bits  off  the 
end,  and  replace  the  first  A2  bit  positions  with  that  of  the 
first  bit  position  (the  sign). 

The  function  MASK  (Al)  produces  a  word  of  60  bits  with 
ones  in  the  leftmost  Al  bit  positions,  and  zero  filled  to 
the  right.   Masking  operations  are  used  in  conjunction  with 
SHIFT  functions  in  the  TRAK  010  subroutine  to  analyze  the 
characters  of  a  computer  word. 


*  Applicable  only  for  CDC  6400  Computer. 
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1.2  Purpose 

The  purpose  for  such  a  program  is  twofold.   Data  points 
are  recorded  from  the  Electrak  digitizing  machine  to  the 
magnetic  tape  in  a  continuous  string  of  characters,  each 
record  of  36  characters  placed  immediately  following  the 
previous  record.   If  one  or  more  of  these  characters  is  not 
recorded,  this  interrupts  the  continuity  of  the  information  on 
the  tape  and  the  garbled  data  becomes  useless  to  the  computer. 
Secondly,  the  CDC  6400  computer  interprets  a  "]"  for* a  "+" 
sign  and  a  ";"  for  a  "'-"  sign.   These  incomplete  records 
(less  than  36  characters)  and  character  differences  are 
frequent  enough  to  require  such  a  corrective  subroutine. 

1.3  Subroutine  TRAK  010 

Each  record  is  output  on  a  magnetic  tape  as  a  string  of 
36  continuous  characters  and  appears  as  follows: 

CCCCSXXXXXSYYYYYFIXED-ADDRESS CICI 

where  the  CCCC  represents  a  counter  of  the  number  of  characters 

remaining  in  a  block,  the  S  represents  a  sign  ("+"  or  "-")» 

the  XXXXX  is  five  digits  of  the  X  coordinate  followed  by  another 

sign,  and  YYYYY  is  the  five  digits  of  the  Y  coordinate.   The 

characters  that  follow  give  certain  information  about  the  data 

point  and  are  explained  in  the  section  under  Electrak  Digitizing. 

Since  these  last  20  characters  are  not  necessary  in  defining 

the  location  of  the  data  point,  they  are  bypassed  in  the  TRAK  010 

subroutine. 

The  usable  information  of  the  total  36  character  record  is 
the  first  16  characters,  i.e.,  the  counter  value,  the  X  coordin- 
ate and  the  Y  coordinate.   Basically,  the  TRAK  010  subroutine 
reads  this  continuous  output  of  characters  and  searches  for  a 
pair  of  signs  (+  or  -)  that  are  six  characters  apart.   When 
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it  finds  this  target  pattern,  it  checks  the  characters  four 
to  the  left  of  the  first  sign  and  five  to  the  right  of  the 
second  sign.   If  all  of  these  characters  (except  of  course 
the  signs)  are  decimal  numbers,  they  are  output  on  Tape  7 
as  a  valid  data  point.   This  process  continues  until  an 
end-of-file  (EOF)  tape  mark  is  encountered  indicating  a 
completely  digitized  accelerogram  component. 

1.4    How  the  Subprogram  Works 

Basically  TRAK  010  has  four  major  sections.   These  are: 

1.  Buffer  in  1000  words  (10,000  characters)  into  memory 
(in  the  array  BUFS)  and  check  the  status  of  this 
operation. 

2.  Locate  a  target  pattern  (two  signs  six  characters  apart). 

3.  Change  the  format  of  this  target  pattern  to  prepare  it 
for. testing  and  output. 

4.  Test  the  target  pattern  and  output  valid  data  points. 

Section  1 

The  BUFFER-IN  statement  reads  the  first  1000  characters 
into  the  BUFS  array.   The  UNIT  statement  is  a  utility  sub- 
program which  is  used  to  check  the  status  of  the  previous 
BUFFER-IN  operation.  It  returns:  (A)  a  -1  if  no  end-of-file 
or  parity  error  is  encountered,  (B)  a  0  if  an  end-of-file 
is  encountered,  and  (C)  a  +1  if  a  parity  error  is  encountered. 
A  parity  error  is  an  error  of  nonagreement  between  the  bit 
located  in  the  first  track  (of  a  seven  track  tape)  and  the 
number  of  ones  in  the  remaining  six  tracks.   Since  the  Electrak 
digitizer  records  in  "even"  parity,  it  places  a  one  in  the 
first  track  if  there  is  an  even  number. of  ones  in  the  remaining 
six  tracks  (or  leaves  the  first  track  blank  if  there  is  an 
odd  number  of  ones  in  the  remaining  six  tracks) .   Parity 


E-3 


error  detection  gives  a  50%  chance  of  detecting  an  error 
in  the  recording  of  information  on  the  tape. 

If  a  -1  is  returned  by  the  UNIT  function,  the  utility 
subprogram  LENGTHX  is  called  and  this  returns  the  number 
of  60  bit  words  read  (SIZE)  and  the  number  of  unused  bits 
in  the  last  word  read  (WASTE) .   This  information  is  re- 
tained and  used  later  in  the  TRAK  010  subroutine. 

If  a  zero  is  returned  by  the  UNIT  function,  an  end-of-file 
has  been  encountered  in  the  BUFFER-IN  operation  indicating 
the  end  of  data  on  the  tape  and  control  reverts  back  to  the 
main  program  PHASE1. 

If  a  +1  is  returned  by  UNIT  indicating  a  parity  error, 
a  remark  is  placed  in  the  day  file  and  the  program  continues. 

Section  2 

This  section  scans  the  current  word  in  the  BUFS  array 
character  by  character  searching  for  a  pair  of  signs  six 
characters  apart.   This  task  is  performed  by  the  SHIFT 
function.   In  the  statement  "CHAR  =  SHIFT (WD, N) .AND.  77B", 
the  word  "CHAR"  is  replaced  by  the  right  side  of  the  "=" 
sign.   That  is,  SHIFT (WD, N)  moves  the  60  bits  of  the  word 
"WD"  (the  first  10  characters  of  data)  left  circular  N 
number  of  bit  positions.   For  example,  if  "WD"  contained 
the  characters  1A2B3C4+DE,  the  bits  for  "WD"  would  look  like 
this: 

Character    1       A       2       B       3       C      4 
Binary  NO.    34      01      35      02      36      03     37 
Bit        011100  000001  011101  000010  011110  000011  011111 

Character    +       D       E 
Binary  NO.    45      04      05 
Bit        100101  000100  000101 
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A  shift  of  "WD",  N  (N=  6  first  time  through  the  loop) 
bit  positions  left  circular  would  look  like  this: 

Character    A       2        B      3       C       4       + 
Bit        000001  011101  000010  011110  000011  011111  100101 

Character    D.       E        1 
Bit        000100  000101  011100 

The  "77B"  is  a  binary  number  representing  a  60  bit  word  and 
appears   like  this: 

Binary  NO.    00      00      00      00      00      00      00 
Bit        000000  000000  000000  000000  000000  000000  000000 

Binary  NO.    00      00      77 
Bit        000000  000000  111111 

The  ".AND."  performs  the  logical  bit  by  bit  product  of  the 
two  words  SHIFT(WD,N)  and  77B.   The  final  result  (i.e., 
contents  of  "CHAR")  appear  like  this: 

Binary  NO.    00      00      00      00      00      00      00 
Bit        000000  000000  000000  000000  000000  000000  000000 

Binary  NO.    00      00      34 
Bit        000000  000000  011100 

"CHAR"  is  now  a  one  character  word  with  the  contents  34B. 
This  binary  number  represents  the  character  "1".   In  the 
statement  "IF (CHAR  .NE.  TARG1)  GO  TO  260",  the  contents  of 
the  word  "CHAR"  is  compared  to  the  contents  of  the  word 
"TARG1"  (where  TARGl  represents  a  "+"  sign) .   Since  CHAR 
is  not  equal  to  TARGl  in  our  example,  control  proceeds  to 
statement  #260  where  it  is  compared  to  "TARG2".   "TARG2" 
is  a  word  that  represents  a  "-"  sign.   Again,  since  in  our 
example  "CHAR"  is  not  a  "-"  sign,  control  reverts  back  to 
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the  beginning  of  the  loop  and  the  second  character  of  "WD" 
(i.e.,  the  "A")  is  tested  to  see  if  it  is  a  "+"  or  a  "-" 
sign.   This  process  continues  until  a  sign  is  found. 

As  soon  as  a  sign  is  found,  the  statement  function 
"FGET"  is  called.   A  statement  function  is  a  user-defined, 
single-statement  computation  which  performs  a  specific 
computation  whenever  it  is  referenced.   In  the  TRAK  010 
subroutine,  FGET  utilizes  logical  arithmetic  and  the  SHIFT 
function  to  change  the  character  "]"  to  "+"  or  ";"  to  "-". 
(Recall  this  is  necessary  because  the  characters  "+"  and 
"-"  recorded  by  the  Electrak  digitizer  is  read  as  a  "]"  and 
";"  by  the  CDC  6400  computer.) 

This  character  change  operation  is  performed  in  the 
following  manner.   In  the  statement  function  FGET(WD,N,V)  = 
(WD.A..N.SHIFT(77B,60-N))  .OR.  SHIFT (V.60-N)  the  dummy 
arguments  WD,N,  and  V  are  replaced  by  the  actual  arguments 
in  the  referencing  statement.   For  example,  the  referencing 
statement  "BUFS(J)  =  FGET(BUFS(J) ,N,45B)"  WD  of  the  statement 
function  is  substituted  for  BUFS(J),  N  is  substituted  for  N, 
and  V  is  substituted  for  45B. 

To  illustrate  this  procedure,  assume  that  the  word  "CHAR" 
contains  the  character  "]".   This  is  the  Electrak' s  symbol 
for  a  "+"  sign  and  must  be  changed  to  such  before  it  can  be 
output  as  usable  data.   "CHAR"  is  then  compared  to  TARG1 
("]")  and  these  two  words  are  found  to  be  equal.   Therefore, 
the  statement  function  "FGET"  is  referenced. 

The  word  "WD"  is  replaced  by  the  word  BUFS(J)  and  appears 
like  this: 
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1       A       2       B       3       C       4 
011100  000001  011101  000010  011110  000011  011111 

]       D       E 
110010  000100  000101 

77B  is  represented  in  bit  form  as: 

000000  000000  000000  000000  000000  000000  000000 
000000  000000  111111 

SHIFT (77B,60-N)  shifts  the  77B  twelve  bit  positions  to  the  left 
.A.      (since  N  is  now  equal  to  48,  i.e.,  from  loop  #350,  N  =  character 
location  x6orN=8x6=  48)  and  appears  as: 

000000  000000  000000  000000  000000  000000  000000 
111111  000000  000000 

.N.  is  a  logical  operator  which  simply  changes  each  bit  in  a  word 
to  what  it  is  not,  thus  .N. SHIFT (77B,60-N)  yields: 

111111  111111  111111  111111  111111  111111  111111 
000000  111111  111111 

The  .A.  performs  the  logical  product  of  the  two  60  bit  words 
BUFS(J)  and  .N.SHIFT(77B,60-N)  which  gives: 

011100  000001  011101  000010  011110  000011  011111 
000000  000100  000101 


.OR. 


The  word  "V"  (which  has  been  replaced  by  45B)  looks  like  this: 

000000  000000  000000  000000  000000  000000  000000 
000000  000000  100101 

SHIFT (V,60-N)  shifts  V  twelve  bit  positions  left  which  yields: 

000000  000000  000000  000000  000000  000000  000000 
100101  000000  000000 
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.OR.  is  a  logical  operator  which  yields  a  "1"  in  that  bit 
position  if  either  word  contains  a  "1"  in  the  corresponding 
bit  position. 

thus:   011100  000001  011101  000010  011110  000011  011111 
100101  000100  000101 

Thus  the  word  returned  by  FGET  is  a  duplicate  of  the 
previous  word  BUFS(J)  except  that  the  eighth  character  has 
been  changed  from  "]"  to  "+". 

Since  a  sign  was  found  in  the  eighth  character  of  the 
first  word  BUFS(J),  N  =  48  (i.e.,  6x8  =  48)  and  J  =  1,  the 
variables  "JJ"  and  "NN"  are  set  equal  to  "J"  (i.e.,  1)  and 
N  +  36  (i.e.,  48  +  36  =  84).   Because  NN  is  greater  than 
60,  J J  is  set  to  JJ  +  1  (i.e.,  2)  and  NN  is  set  to  NN-60  or 
24.   This  step  prepares  the  subroutine  to  search  in  the 
second  word  of  BUFS  (the  next  10  characters)  for  another 
sign  (+  or  -) .   Statement  #280  "CHAR2  =  SHIFT (BUFS (J J) ,N) .AND, 
77B"  is  similar  to  the  first  statement  in  the  loop  where  it 
compares  the  fourth  character  of  the  second  word  (BUFS(JJ)) 
with  a  "+"  and  "-"  sign.   If  a  "+"  or  "-"  sign  is  found  in 
that  character  location,  the  target  pattern  has  been  found 
and  these  two  words  are  tested  in  Section  3  for  proper 
location  of  decimal  characters,  four  left  of  the  first  sign 
and  five  right  of  the  second  sign. 

If  a  second  sign  is  not  found  six  characters  right  of 
the  first,  control  goes  to  statement  #1000  where  J  is 
increased  by  one  and  tested  to  see  if  it  exceeds  the  number 
of  words  in  the  first  BUFS  array  (i.e.,  1000).   If  so,  the 
last  six  words  in  the  first  BUFS  array  are  placed  in  the 
first  six  words  of  the  second  BUFS  array.   Otherwise,  the 
sign  searching  loop  continues  to  search  for  more  valid 
target  patterns. 
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Section  3 

To  arrive  at  this  section,  a  target  pattern  has  been 
found  and  the  task  is  to  analyze  the  sixteen  characters  to 
see  if  they  contain  decimal  numbers.   Assume,  for  example, 
that  the  first  word  BUFS(l)  contain  the  characters  "ABC1234+56" 
and  the  second  word  BUFS(2)  contain  the  characters  "789-09876Z" 
The  first  sign  is  the  eighth  character  of  BUFS(l);  thus  N  =  48. 
The  computed  "GO  TO"  (following  statement  #450)  directs  the 
test  procedure  to  the  appropriate  testing  statement.   For  our 
example,  this  would  send  control  to  statement  #490  (N/6  = 
48/6  =  8),  the  eighth  statement  number  of  the  computed  "GO  TO". 

In  statement  #490,  two  words  are  defined,  i.e.,  "WDl" 
and  "WD2".   Following  the  operations  defining  WDl,  proceed  as 
follows:   MASK(N-30)  -  i.e.,  MASK(18)  yields 

111111  111111  111111  000000  000000  000000  000000 
000000  000000  000000 

.N. MASK (18)  gives: 

000000  000000  000000  111111  111111  111111  111111 
111111  111111  111111 

WD,  i.e.,  BUFS(l)  yields: 

Character  A  B  C  1  2  3  4 
Binary  NO.  01  02  03  34  35  36  37 
Bit       000001  000010  000011  011100  011101  011110  011111 

Character  +56 
Binary  NO.  45  40  41 
Bit        100101  100000  100001 

WD.A..N.MASK(18)  yields: 

000000  000000  000000  011100  011101  011110  011111 
100101  100000  100001 
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SHIFT(WD.A..N.MASK(18),N-42)  where  N-42  =  48-42  =  6,  yields: 

000000  000000  011100  011101  011110  011111  100101 
100000  100001  000000 

MASK(N-42),  i.e.,  MASK(6)  is: 

111111  000000  000000  000000  000000  000000  000000 
000000  000000  000000 

BUFS(J+1),  i.e.,  BUFS(2)  is: 

Character  7  8  9-098 
Binary  NO.  42  43  44  45  33  44  43 
Bit        100010  100011  100100  100101  011011  100100  100011 

Character  7  6  Z 
Binary  NO.  42  41  32 
Bit        100010  100001  011010 

BUFS(J+1). AND. MASK (N-42)  yields: 

100010  000000  000000  000000  000000  000000  000000 
000000  000000  000000 

SHIFT (BUFS(J+1) .AND. MASK (N-42), N-42)  yields: 

000000  000000  000000  000000  000000  000000  000000 
000000  000000  100010 

Finally  WD1  =  SHIFT(WD.A. .N.MASK(N-30) ,N-42) .OR. SHIFT (BUFS(J+1) 
.A.MASK(N-42),N-42)  yields: 

Bit       000000  000000  011100  011101  011110  011111  100101 
Binary  NO.   00      00      34      35      36      37      45 
Character  1       2       3       4       + 

Bit        100000   100001  100010 
Binary  NO.    40      41      42 
Character     5       6       7 
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Therefore  the  contents  of  "WD1"  are  "—1234+567"  (the  first 
twelve  bits  -  two  character  positions  -  have  no  associated 
characters  and  are  thus  interpreted  as  blanks  by  the  computer) . 

The  next  statement  after  #490  isolates  the  second  thru 
ninth  characters  of  BUFS(2)  (i.e.,  the  "89-09876")  in  a 
similar  manner  and  stores  them  in  the  last  eight  character 
locations  of  word  "WD2".   Thus  "WDl"  contains  the  counter 
number,  the  first  sign,  and  three  digits  of  the  X  coordinate. 
"WD2"  contains  the  second  sign  and  the  five  digits  of  the  Y 
coordinate.   The  first  two  character  positions  of  both  words 
are  blanks. 

Section  4 

In  the  last  section  of  TRAK  010,  the  target  pattern 
containing  the  alleged  "valid"  data  is  tested.   This  operation 
is  implemented  in  loop  #540.   The  word  "TEST"  is  defined  as 
follows: 

"WDl"  is  shifted  left  circular  (first  three  character 
positions  then  one  character  at  a  time)  and  the  logical  pro- 
duct taken  between  each  character  (in  binary)  and  77B.   This 
reduces  the  contents  of  "TEST"  to  one  character  in  the  last 
character  position.   In  the  word  "TEST"  for  the  above  example, 
the  binary  form  is  34B  which  represents  the  character  "1". 
When  33B  is  deducted  from  34B  the  result  is  IB.   This  value 
is  tested  to  see  if  it  lies  between  0  and  13B.   Since  it 
does,  it  is  either  a  sign  or  a  decimal  number,  thus  a  valid 
character.   This  test  continues  for  each  character  in  the 
words  "WDl"  and  "WD2".   As  long  as  these  characters  have 
binary  numbers  between  33B  and  46B  (the  range  of  digits  and 
signs) ,  the  loop  will  be  completed  normally  and  the  contents 
of  words  "WDl"  and  "WD2"  will  be  written  on  TAPE  7.   If  one 
of  the  binary  numbers  falls  outside  this  range,  it  is  not  a 
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digit  or  sign  and  the  test  will  be  aborted.   Control  will 
then  go  to  statement  #800  and  no  information  will  be  written 
on  TAPE  7. 

Statement  #800  commands  the  current  word  and  the  two 
adjacent  words  that  have  failed  the  sign-digit  test  to  be 
printed  out.   This  gives  the  user  some  information  about 
that  data  point.   If  it  is  a  significant  point  (e.g.,  peak 
or  valley  of  an  accelerogram  trace) ,  he  may  decide  to 
redigitize  that  area  of  the  accelerogram  or  insert  a  missing 
digit  or  sign  (if  he  can  be  certain  of  what  it  should  be) . 

The  last  part  of  the  TRAK  010  subroutine,  checks  the 
value  J  to  see  if  it  has  exceeded  the  size  of  the  BUFS 
array.   When  the  limit  of  the  BUFS  array  is  finally  reached, 
control  returns  to  statement  #10  where  another  1000  words  are 
read  into  memory.   The  whole  process  continues  until  an  EOF 
mark  is  encountered  on  the  tape.   At  this  point,  control 
returns  to  the  main  program  PHASE1  where  the  data  stored  on 
TAPE  7  is  read  into  memory. 


,^.J,-. 
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APPENDIX  F 
Program  Opscan 

1 .1   Introduction 

Program  OPSCAN  (Optical  Scanning)  was  used  to  retrieve 
digitized  data  placed  on  7-track  tape  by  a  Perkin-Elmer  Micro- 
densitometer.   It  is  listed  only  for  the  CDC  6400  computer 
because  the  authors  have  no  experience  with  its  use  on  an  IBM 
computer.   The  User's  Instructions  and  program  which  follow 
were  obtained  from  the  Solar  Division,  Kitt  Peak  National 
Observatory.   Only  the  first  routine  was  changed  to  meet  the 
requirements  for  accelerogram  digitizing. 


1.2  User's  Instructions 


IDENTIFICATION 

CONTRIBUTOR: 
DATED : 
PURPOSE: 


SUBROUTINE 
USAGE: 


Subroutines  RUNPID,  RUNPSC,  RUNSCI,  CONVERT 

REOFS 

San  Carswell 

November  5,  1973 

This  set  of  subroutines  is  for  reading  and 

unpacking  data  from  magnetic  tape  written 

by  the  PDS  microdensitometer . 

RUNPID 

To  read  and  unpack  the  ID  record  at  the 

beginning  of  each  file. 

CALL  RUNPID  (NTAPE , IDETC) 


Where: 
NTAPE 

IDETC 


is  the  logical  unit  number  of  the  ma£ 
tape  file  holding  the  PDS  data,  and 
is  an  integer  array  of  at  least  18 
words  which  will  contain  the  file  ID 
information  on  return  from  the  sub- 
routine. 
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The  routine  will  read  one  record  from  file 
NTAPE  and  if  it  encounters  an  End  of  File, 
or  the  record  is  not  the  correct  length  for 
an  ID  record,  will  return  the  IDETC  array 
as  zeros.   Otherwise  the  record  is  unpacked 
into  the  array  IDETC  in  the  following  way : 
IDETC     Contents 

Word(s)    l-*-4  =40  character  ID  (CDC 

display  code)   4A10 

5  =  DX  used  for  scan  pattern 

(microns) 

6  =  DY  used  for  scan  pattern 

(microns) 
=  No  of  data  points  per  scan 
=  No  of  scans  requested 
=  Scan  type  (CDC  display 

code,  E,  R  or  F,   Al) 
=  Speed  used  for  scan  (Max=255) 
=  Position  of  scan  origin 

(0  =  centre,  1,2,3,4. 

corner) 
=  Starting  corner  of  scan 

1,2,3,4. 
=  No  of  mag  tape  records  per 

scan 
=  Xt ravel  (microns)  for  one 

scan 
=  Ytravel  (microns)  requested 
=  No  of  points  in  each  'full' 

mag  tape  record 


7 
8 
9 

10 
11 


12 

13 

14 

15 
16 
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SUBROUTINE 


17  =  X  co-ordinate  of  scan  origin 

18  =  Y  co-ordinate  of  scan  origin 
All  values  except  ID  and  scan  type  are  returned 
as  integers ,  ID  and  scan  type  are  returned  in 
CDC  display  code. 

If  any  scans  in  a  file  are  to  be 

unpacked,  then  RUNPID  must  be  called  at 
the  beginning  of  that  file,  as  the  ID 
is  the  first  record  within  a  file  and 
contains  information  used  by  the  'scan 
unpack'  routine. 

For  all  these  subroutines  the  mag.  tape  reading 
is  done  with  'Buffer  In'  statements,  so  that 
the  buffer  length  in  the  user's  'program' 
statement  for  file  NTAPE  should  be  the  minimum 
length,  i.e.  101  B  (octal)  or  65  (decimal). 
If,  in  any  of  the  subroutines  a  read  (buffer  in) 
encounters  a  parity  error,  a  message  will  be 
printed  and  the  program  will  terminate  with 
'STOP  13'  printed  in  the  dayfile. 


CONVERT 


Where: 

DNB 

GAM 


If  an  approximate  conversion  to  intensity 
is  required  when  a  scan  is  unpacked,  then 
after  the  call  to  RUNPID  the  user  should 

CALL  CONVERT  (DNB,  GAM) 

is  the  density  of  the  clear  plate  and 
is  the  y  of  the  film  or  plate. 
This  call  will  set  a  flag  so  that  all 
calls  to  RUNPSC  until  the  next  End  of 
File  is  encountered  will  do  the  density 
to  intensity  conversion.   (This  means 
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SUBROUTINE : 


RUNPSC 

Where: 
IFLIP 


SCAN 


that  CONVERT  must  be  called  for  each 
file  for  which  the  conversion  is 
required) . 

To  read  and  unpack  one  scan  line 

CALL  RUNPSC  (IFLIP, SCAN) 

is  an  integer,  set  =  0  if  the  user 

requires  that  the  data  values  are 

returned  in  the  order  in  which  they 

are  read,  or  =  1  if  the  values  are 

to  be  returned  in  reversed  order, 

i.e. ,  'flipped' . 

(IFLIP  =  1  will  normally  be  used  for 

the  even  numbered  scans  of  a  raster 

scan  pattern,) 

and 

is  a  'real'  array  of  at  least  NPTS 

words  (where  NPTS  is  the  number  of 

points  in  the  scan)  and  on  return  from 

the  subroutine  will  contain  the  density 

values  or  -  if  CONVERT  was  called  for 

that  file  -  the  intensities.   If  an 

End  of  File  is  encountered  while  reading 

the  scan  then  the  first  data  value  will 

be  set  =  -6400,  and  no  further  reading 

or  unpacking  is  done  for  that  call  of  the 

subroutine.   The  same  procedure  will  be 

followed  if  the  'scan  start  pattern'  is 

not  found  on  the  first  read. 
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Where: 
IFLIP 


IS  CAN 


SUBROUTINE:    RUNSCI    This  is  provided  as  an  entry  in  RUNPSC 

to  enable  the  user  to  have  integer 
values  returned  by  the  subroutine,  i.e., 

CALL' RUNSCI  (IFLIP, ISCAN) 

is  as  described  for  RUNPSC  i.e. 
0  =  no  flipping  required,  1  =  flipping 
needed  and 

is  an  integer  array  of  size  at  least 
NPTS  (where  NPTS  is  the  number  of 
points  in  the  scan)  which  will  con- 
tain the  integer  data  values  on  return 
from  the  subroutine.   (The  integer 
value  returned  is  equal  to  400  *  density, 
regardless  of  whether  or  not  CONVERT 
was  called  for  that  file.) 
The  'End  of  File'  encountered,  and 
scan  pattern  not  found  procedure  is 
as  for  RUNSPC,  i.e.,  the  first  data  value 
is  returned  as  -6400.,  so  that  the  user 
should  equivalence  a  real  variable 
to  ISCAN  (1)  and  check  that  variable  for 
negative. 

SUBROUTINE:   REOFS     If  the  user  wishes  to  ignore  files  or 

the  remainder  of  a  file  it  should  be 
done  with 

CALL  REOFS  (NTAPE,N) 

which  will  read  records  on  unit  NTAPE 

until  N  'End  of  File'  marks  have  been 

encountered. 
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Common  block  name(s)    used 

NOOPDS 

Other  subroutine  names  within  the 

set  UNIN,  RUNIN,  UNPIN  (ENTRY  IN  UNIN) . 

STORAGE:  (excluding  system  routines  and  buffers) 

approximately  400  (decimal) 
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1.3  Program  Listing 

CONTROL  STATEMENTS  FOR  PROGRAM  OPSCAN  FOR  THE  CDC  6400  COMPUTER 


MIKLOF.BN         ,CM65000,T80,MT1. 
REOUESTl  TAPED  ,  S, VSN= 585 7  8, HY, RO ) 
FTN. 
LGO. 
7/8/9 


SOURCE  STATEMENTS 


PROGRAM  OP SC AN ( INPUT, OUTPUT, T A PE1, PLOT, TAPE  99* PLOT, PUNCH) 
COMMON  /NOOPDS/NPTS»NREC,PPERR»  NUN  IT,  MASK,  LL,  I  CON,  DN,GAM1,  IN  (401) 
DIMENSION  SCAN (3000), I DETC ( 18 ) , I SC AN ( 3000) , I ACC E L ( 3, 500 ) , NSC  AN ( 500 
,) 

CALL  RUNPID(1,IDETC) 
PRINT  200,  (IDETC( I  ),I*1,4) 
PRINT  201,  (I,  IDETC(I),I*5,8) 
PRINT  202,  I,I0ETC(9) 
PRINT  201,  (I,IDETC(I),I=10,18) 


200 

FORMAT    <1X,4A10) 

201 

FORMAT    (IX, 2110) 

202 

FORMAT    <1X,I10,A10) 

K  =  0 

NSCANS    *     IDETC(8) 

DO    224    1=1,200 

CALL    RUNPSC(K.SCAN) 

CALL    RUNSCKK,  ISCAN) 

M  =  0 

DO    17    J=1,NPTS 

IF(  ISCAN( J) .LE.100) 

18 

M  =  M  +  1 

NSCAN(M)*J 

17 

CONTINUE 

18,17 


MM  =  1 

ISUM=0 

J=0 

IF  (M  .LE.  2)  GO  TO  54 

DO  3  L  =  2,M 

IF  (IABS(NSCAN(L-l)-NSCAN(L) )  .EO.  1)  2,4 

2  ISUM=ISUM+NSCAN(L-1) 
J  =  J  +  l 

IF  (L  .EO.  M)  5,3 
5  IF  (MM-3)  54,55,30 
55  NSCAN(L-1)=NSCAN(L) 
4  IACCEL(MM,I)  =  ( I SUM+NSC AN ( L-l ) ) / ( J+ 1 ) 

MM=MM+1 

ISUM=0 

J  =  0 

3  CONTINUE 

IF  ( I  ACCEL (1,1)  .EO.  0)  IACCEL(1,I)  *  I  ACCEL ( 1,  1-1 ) 
IF  (IACCEL(2,I)  .EO.  0)  IACCEL(2,I)  *  I  ACCEL ( 2, 1-1 ) 
IF  (IACCEL(3,I)  .EO.  0)  IACCEL(3,I)  *  I ACC EL ( 3, 1-1 ) 
30  CONTINUE 
K  =  l 
GO  TO  223 

226  K=0 

223  CONTINUE 

IF  (IACCEL(1,I)  .GT.  1500)  IACCEL(1,I)  =  I ACCELL ( 1, 1-1 ) 

IF  (IACCEL(2,I)  .LT.  1500  .OR.  IACCEL(2,I)  .GT.  1650)  IACCEL(2,I» 
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«  IACCEL(3,I-1) 


1=1, NP) 


=  IACCEL (2.1-1) 

IF  (IACCELOfl)  .LT.  1650)  IACCEL(3,I) 

PRINT  204,  I,  (IACCEHMM,  I),  MM*1,3) 
224  CONTINUE 
C+****  MM  IS  THE  COMPONENT 
C*****  i     Is  THE  TIME  VALUE 
C*****  IACCEL  IS  THE  ACCELERATION  VALUE 

PRINT  204*  (I,  (IACCEL(MM,I  ),  MM=1,3), 

PUNCH  40.  (I,  IACCEL(1,I),  1=1, NP) 

PUNCH  40,  (I,  IACCEL(3,I),  1*1, NP  ) 
40  FORMAT  (  4(2110)) 

200  FORMAT  (  1X,4A10) 

201  FORMAT  (IX, 2110) 

202  FORMAT  (1X,I10,A10) 
204  FORMAT  (  1X,10I10) 

END 

SUBROUTINE  RUNIN( SC AN, N) 

COMMON/NOOPDS/  NPTS , NRECS , PPERR, NUN  I T, M ASK, LL , ICON,  DN,  G AMI ,  IN  (  401 ) 

DIMENSION  SCAN(5) 
C 

C  UNPACK  LL  VALUES  AS  REAL  NOS,  DIVIDE  THEM  BY  400  TO  GET  THE 

C  DENSITY  READING,  AND  DO  THE  CONVERSION  TO  INTENSITY  IF  THE 

C  USER  HAS  REQUESTED  IT. 

C 
C 
C 

J=N 

DO  1  1=1, LL 

J»SHIFT( J, 12) 

IS=J  .AND.  MASK 

S=IS/400. 

IFUCON  .EO.  0)  GO  TO  1 

IF  CONVERSION  NOT  REOUESTED,  RETURN  VALUEAS  DENSITY 

OTHERWISE,  USING  DENSITY  OF  BACKGROUND  AND  GAMMA  OF  FILM 
PREVIOUSLY  SUPPLIED  BY  THE  USER,  RETURN  THE  VALUES  AS 
INTENSITIES. 

Q=10.**(S-DN)-1. 

S=ABS(Q) 

IF(S  .EO.  0. )  GO  TO  1 

S  =  Q*  S**GAMI  /S 

SCAN(  I)  =  S 

RETURN 

END 

SUBROUTINE  RUNPID(NTAPE,IDETC) 

DIMENSION  IDETC(18),ICDC(27) 


5TH  NOVEMBER  1973 


NTAPE  IS  THE  LOGICAL  UNIT  NO.  OF  THE  FILE  FROM  WHICH 

EVERYTHING  SHOULD  BE  READ,   AND  IDETC  IS  AN  INTEGER  ARRAY 

OF  AT  LEAST  18  WORDS  THAT  WILL  CONTAIN  THE  FOLLOWING  INFO. 

ON  EXIT  FROM  THE  SUBROUTINE. 

ALL  VALUES  EXCEPT  ID  AND  SCAN  TYPE  ARE  RETURNED  AS  INTEGERS, 

ID  AND  SCAN  TYPE  ARE  RETURNED  IN  CDC  DISPLAY  CODE. 

WORD(S)  1  4   =40  CHARACTER  ID  (CDC  DISPLAY  CODE)   4A10 

5  =  DX  USED  FOR  SCAN  PATTERN  (MICRONS) 

6  =DY  USED  FOR  SCAN  PATTERN  (MICRONS) 

7  *N0  OF  DATA  POINTS  PER  SCAN 

8  *N0  OF  SCANS  REOUESTED. 

9  =  SCAN  TYPE  (CDC  DISPLAY  CODE,  E,  R  OR  F,    Al) 

10  =SPEED  USED  FOR  SCAN   (MAX=255) 

11  "POSITION  OF  SCAN  ORIGIN  (0=CENTRE,  1,2,3,4  « 
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CORNER) 

12  ^STARTING  CORNER  OF  SCAN    1.2,3,4. 

13  =NO  OF  MAG  TAPE  RECORDS  PER  SCAN 

14  =XTRAVEL   (MICRONS)  FOR  ONE  SCAN 

15  =YTRAVEL   (MICRONS)  REQUESTED 

16  =  NO  OF  POINTS  IN  EACH  -FULL-  MAG  TAPE  RECORD 

17  *X  CO-ORDINATE  OF  SCAN  ORIGIN 

18  =Y  CO-ORDINATE  OF  SCAN  ORIGIN 


COMMON/NOOPDS/  NPTS,NRECS,PPERR,NUNIT,MASK,LL»ICON,DN,GAMI,IN(401) 
INTEGER  PPERR 

DATA  ICDC/62B,64B,60B,53B,55B,67B,61B,51B,52B,47B,45B,56B,46B,57B, 
*  50B,63B,77B,74B,54B,7  3B,71B»70B,72B,55B,66B»76B,65B/ 
DATA  MASK/7777B/, ICON/O/ 


NUNIT=NTAPE 
CALL  BIN 

READ  WOT  SHOULD  BE  THE  ID  ON  THE  SPECIFIED  UNIT,  CHECK  THAT 
THE  READ  WAS  OK  AND  WHETHER  AN  EOF  WAS  READ. 

IF(LL  .EO.  0)  GO  TO  20 

IF  YOU  HIT  AN  EOF.  THEN  JUST  RETURN  ALL  THE  ID  AS  ZERO  AND 

HOPE  THAT  THE  USER  CHECKS  IT 

15  DO  16  1=1,18 

16  IDETC(I)=0 
RETURN 

20  IF(LENGTH(NTAPE)  .NE.  12)  GO  TO  15 

THE  READ  WAS  OK,  WAS  IT  THE  RIGHT  LENGTH  FOR  AN  ID 
IF  NOT,  RETURN  ID  AS  ZERO,  AS  FOR  END  OF  FILE 

M  =  99 

DO  50  1=1,8 

K=IN(I ) 

DO  50  J=l,5' 

K=SHIFT(K,12) 

L=K  .AND.  377B 

N»55B 

UNPACK  THE  ID  PART  (IE  THE  CHARACTERS)  AND  DUMP  THEM  IN 
THE  TOP  OF  THE  INPUT  ARRAY  FOR  NOW,  FIRST  CONVERTING  THEM 
FROM  8  BIT  ASCII  CODE  TO  CDC  DISPLAY  CODE 


ANYTHING  THAT  YOU  DONT  RECOGNISE,  PUT  A  SPACE  CHARACTER  IN 
IF(L  .LE.  240B  .OR.  L  .GE.  340B)  GO  TO  49 


332B)  GO  TO  49 
271B)  GO  TO  49 


N=L-300B 

IF(L  .GT.  300B  .AND.  L  .LE, 

N=L-225B 

IF(L  .GE.  260B  .AND.  L  .LE. 

N=L-240B 

IF(L  .GT.  271B)  N=L-252B 

IF(L  .GT.  332B)  N=L-304B 

N=ICOC(N) 

49  M=M+1 

50  IN(M)=N 
M  =  99 


NOW  PACK  THE  CONVERTED  CHARACTERS  INTO  THE  FIRST  4  WORDS  OF 
IDETC,  IN  A10  FORMAT 
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DO  55  1=1.4 

K  =  0 

DO  53  J*l,10 

M  =  M+1 
53  K=SHIFT(K,6)  .OR.  IN(M) 
55  IDETC(I)=K 

NOW  UNPACK  THE  VARIOUS  NUMBERS,  DX  DY  ETC 

CALL  UNIN(IDETC(5) ,IN(9) ) 
LL  =  5 

CALL  UNPIN(  IDETC18),  IN(IO)  ) 

IDETC(9)  =SHIFT(IDETC(9)-300B,54)  .OR.  555555555555555555B 
DO  60  1*1,2 
60  CALL  UNIN(IDETC(10+I*3),IN(10+IN 
DO  65  1=17,18 

IF(UDETC(I)  .AND.  40000000B)  .NE.  0)  I DE  TC  (  I  )  =  I  DE  TC  (  I  ) -1  .OR. 
*  77777777777700000000B 

ONLY  THE  X,Y  CO/ORDINATES  CAN  BE  NEGATIVE.  SO  CHECK  THEM 
AND  CHANGE  FROM  TWOS  TO  ONES  COMPLEMENT  IF  -VE. 
65  CONTINUE 

GET  A  COPY  OF  ANY  VARIABLES  THAT  YOU  NEED  LATER 


NPTS=I 

NRECS= 

PPERR= 

RETURN 

END 

SUBROU 

DIMENS 

COMMON 


DETC(7) 

IDETCU3) 

IDETC(16) 


TINE  UNIN(ID.N) 

ION  ID(5) 

/NOOPDS/  NPTS,NRECS,PPERR,NUNIT, MASK,  LL, ICON,  DN,GAMI,  IN (401) 


UNPACK  THREE  THINGS,  BITS  1  -  12,  BITS  13  -  36,  BITS  37  -  60. 

ID(1)=SHIFT(N,12)  .AND.  MASK 
ID(2)=SHIFT(N,-24)  .AND.  77777777B 
ID(3)=N  .AND.  77777777B 
RETURN 


ENTRY  UNPIN 

UNPACK  LL  VARIABLES  /  DATA  POINTS  AS  INTEGERS,  EACH  ONE  12 
BITS  LONG. 

J  =  N 

DO  1  1=1, LL 

J=SHIFT( J, 12) 

ID(I)=J  .AND.  MASK 

RETURN 

END 

SUBROUTINE  CONVERT ( DNB, GAM ) 

COMMON /NOOPDS/  NPTS, NRECS, PPERR, NUN  IT, MASK, LL , ICON, DN, GAMI , IN ( 401 ) 


USER  MUST  SUPPLY  DNB 
OF  FILM. 


DENSITY  OF  BACKGROUND,  AND  GAM  *  GAMMA 


THIS  ROUTINE  MUST  BE  CALLED  ONCE  FOR  EACH  FILE  FOR  WHICH 
INTENSITIES  ARE  REOUIRED  (INSTEAD  OF  DENSITIES)  AND  IT  MUST 
BE  CALLED  IMMEDIATELY  AFTER  THE  CALL  TO  RUNPID. 


IC0N=1 

DN=DNB 

GAMI=1./GAM 

RETURN 

END 
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SUBROUTINE  RUNP SC ( I  Ft  I P, SC AN ) 

COMMON/NOOPDS/  NPTS , NRECS , PPERR, NUNI T, MASK , LL , ICON, ON, GAMI , IN ( 401 ) 

DIMENSION  SCANUI 

INTEGER  PPERR 
C 

C  SCAN  IS  THE  ARRAY  TO  HOLD  THE  UNPACKED  DENSITIES  OR 

C  INTENSITIES,  AND  MUST  BE  LARGE  ENOUGH  FOR  THE  COMPLETE  SCAN 

C  IFLIP=0  MEANS  T.HAT  NO  -FLIPPING-  IS  REOUIREC,  IFLIP  NON  ZERO 

C  MEANS  THAT  THE  UNPACKED  VALUES  SHOULD  BE  -FLIPPED-  BEFORE 

C  EXIT  FROM  THE  SUBROUTINE.  THIS  IS  SO  THAT  RETURN  SCANS  OF 

C  RASTER  SCAN  PATTERNS  MAY  BE  TURNED  AROUND  TO  LOOK  LIKE  EDGE 

C  SCANS  FOR  EASE  OF  USE  HEREAFTER. 


IFINT*0 


C 

C  SET  A  FLAG  TO  SAY  THAT  USER  REOUIRES  REAL,  UNPACKED  VALUES 

C  TO  BE  RETURNED 

C 

1  M«=l 

LS  =  -4 

NO-NPTS 
C 

C  NO  *  NUMBER  OF  DATA  VALUES  LEFT  TO  UNPACK 

C  M=  FIRST  WORD  OF  ARRAY  -IN-  TO  UNPACK 

C 

DO  180  1=1, NRECS 

CALL  BIN 

IF(LL  .EG.  0)  GO  TO  18 
C 

15  ICON*0 
C  CLEAR  CONVERSION  FLAG  WHEN  EOF  FOUND,  AND  RETURN  SCANU)  AS 

C  -6400.  SO  THAT  THE  USER  KNOWS  WOT  HAPPENED. 

C 

C  DO  THE  SAME  THING  IF  THE  CORRECT  -SCAN  START  PATTERN-  IS 

C  NOT  FOUND. 

C 

SCAN(l)*-6400. 

RETURN 
C 

18  I F ( I  .NE.  1)  GO  TO  20 

IFUN(l)  .NE.  77770000777700007777B)  GO  TO  15 
C 

C  LOOK  FOR  THE  SCAN  START  PATTERN  ON  RECORD  1  OF  SCAN. 

C 

20  J*NO 

IF(NO  .GT.  PPERR)  J=PPERR 

LL  =  5 

DO  25  L*1»J»5 

M=M  +  1 

LS=LS+5 

IFU  +  4  .GT.  J)  LL=J-L  +  1 

IFdFINT  .NE.  0)  GO  TO  23 

CALL  RUNIN(SCAN<LS), IN(M) ) 
C 

C  UNPAK  VALUES  AS  REAL  NOS. 

C 

GO  TO  25 
23  CALL  UNPIN(SCAN(LS)»IN(M) ) 
C 

C  UNPACK  THE  VALUES  AS  INTEGERS 

C 

25  CONTINUE 

NO=NO-PPERR 
180    M*0 

IFdFLIP     .EQ.     0)    RETURN 

IF     (IFINT     .EO.     1)     RETURN 
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IF  THE  USER  WANTS  THEM  FLIPPING,  DO  IT  NOW 


H*WTS/2 

L«NPTS 

DO  200  1=1, M 
A-SCANU) 
SCAN(I)=SCAN(L) 
SCAN(L»*A 
200  L*L-I 
RETURN 


THIS  ENTRY  FOR  BODS  WANTING  VALUES  RETURNED  AS  INTEGERS. 

ENTRY  RUNSCI 

IFINT=1 

GO  TO  1 

END 
SUBROUTINE  BIN 

COMMON /NOOPDS/  NPTS, NRECS, PPERR, NUN  I T, MASK, LL, ICON, DN, GAMI, IN ( 4  01 ) 


BUFFER  IN(NUNIT»1) ( IN < 1 ) , IN ( 401 ) ) 
LL  =  0 

RETURN  LL  AS  ZERO  FOR  AN  ORDINARY  RECORD*  AND  1  FOR  AN  EOF 

IF<UNIT(NUNIT) )  22,20»13 

IF  YOU  GET  A  PARITY  ERROR,  SAY  SO  THEN  GIVE  UP 

14  FORMAT(1HO,20X,*PARITY  ERROR  ON  UNIT*, 14) 
13  PRINT  14,NUNIT 

STOP  13 
20  LL=1 

ICON=0 
22  RETURN 

END 

SUBROUTINE  REOFS ( NT APE,N) 

COMMON/NOOPDS/  NPTS , NRECS* PPERR, NUN  IT, MASK, LL, ICON, DN, GAM  I, IN < 4  01 ) 


NUNIT=NTAPE 
DO  10  1*1, N 
5  CALL  BIN 

IF(LL  .EO.  0)  GO  TO  5 

KEEP  READING  TILL  YOU  HIT  AN  EOF 

10  CONTINUE 
RETURN 

END 
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